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1.0 MC6801 OVERVIEW 

Successful design begins with a clearly stated set of 
objectives. The principle design objectives driving the 
MC6801 development have remained constant 
throughout its evolution: to provide the user with the 
finest single-chip microcomputer possible today with 
sufficient flexibility and power to deal with his problems 
extending into the 1980's. Three clear trends are 
emerging with respect to future applications: users will 
continue to strive for minimization of part counts, make 
increasing use of distributed processing, and automate 
processes heretofore unimagined. The MC6801 has 
demanded the highest skills and talents from its designers 
in meeting these formidable objectives. 

1.1 ARCHITECTURAL INNOVATIONS 

The MC6801 represents the state-of-the-art in single- 
chip microcomputer development. The MC6801 MPU has 
been enhanced from the M6800 with respect to both its 
capability and internal architecture. In addition to the 
MPU, the MC6801 has incorporated an on-chip oscillator 
driver, an on-chip programmable timer, a serial 
communications capability, two types of memory and 8 
modes of operation. The single most noteworthy 
accomplishment of the architecture is probably the 
systems integration of these components into a powerful 
single-chip microcomputer. 

The MC6801 microcomputer may be considered an 
entire family of processors all of which have been 
integrated into one common design. This approach was 
taken at the risk of overwhelming the user with the myriad 
of options available. The advantages to be gained from 
the approach are significant: 

• a single microcomputer can be used in an extremely 
wide and vastly different variety of applications. 

• the user can build upon his experience with the 
microcomputer without the fear of early obsolescense, 
and 

• the user's investment in learning and support tools 
may be amortized over a longer period of time than with a 
number of more custom designs, hence it also will free the 
user from a heavy burden of inventory. 

1.2 SOFTWARE INNOVATIONS 

The M6800 programmer will feel very much at ease with 
the MC6801 instruction set. All of thefamiliar instructions 
of the M6800 have been implemented and function in 
exactly the same manner. In addition to the M6800 
instructions, several new and powerful instructions have 
been added to ease the problems associated with 16-bit 
arithmetic problems. The A and B-accumulators have 
been concatenated into a single, double-accumulator (D) 
for which a full set of 16-bit arithmetic instructions 
(including load, store, add, subtract, and shift) are 
included. These new double accumulator instructions 
have been implemented with all of the addressing modes 
available for single accumulator operations. 

Indexing has been greatly enhanced by adding a "Add 
B-accumulator to X" instruction along with the capability 
to both push and pull the index register. A hardware 
multiply instruction has also been added to further aid in 
arithmetic problems. Improvements in the internal 
architecture also have resulted in faster cycle times for 
many instructions. 



The MC6801 MPU may be considered an enhanced 
M6800 MPU which capitalizes on the user's investment 
with the M6800 Family of Parts. New users will appreciate 
the widely acclaimed easy-to-learn instruction set. 

1.3 SUMMARY OF FEATURES 

Hardware 

• M6800 Bus Compatible 

• Single 5V Power Supply 

• 8-Bit Word Size 

• 16-Bit Address Field 

• TTL-Compatible Inputs and Outputs 

• On-Chip Oscillator/Driver 

• On-Chip 16-Bit Dual Function (Input and Output) 

Programmable Timer 

• On-Chip Serial Input/Output 

• On-Chip 128 Byte RAM 

• On-Chip 2K Byte ROM 

• Vectored Priority Interrupts for Timer and Serial I/O 

• Four Programmable Input/Output Ports 

• Eight Hardware Programmable Modes of Operation 

• Mask Option for External Clock Input 

• Peripheral Controller Mask Option 

• EROM version for all Mask Options 

• Mask Relocatable ROM Address 

• Mask Relocatable RAM Address 

• Programmable External Address Space to 64K 

• Multiplexed Address/Data Bus 

• Valid Address Strobe 

• On-Chip Standby RAM for 64 Bytes 

• Vectored Restart 

• Maskable Vectored Interrupt 

• Separate Non-Maskable Interrupt 

• Full Duplex Programmable Serial I/O for Either NRZ 

or Bi-phase 

• Four Baud Rate Programmable Selection for Serial 

I/O 
Software 

• MC6800 Upward Compatible Architecture 

— Two 8-Bit Accumulators 

— One 16-Bit Index Register 

— One 16-Bit Stack Pointer 

• MC6800 Upward Compatible Instruction Set 

— All M6800 Instructions Included (Many contain 
fewer cycles) 

— M6800 Object Code Compatible 

— 8 X 8-Bit Unsigned Hardware Multiply 

— 16-Bit Arithmetic Capabilities (Load, Store, Add, 
Subtract, Shift) 

— Additional Index Register Instructions (Push, 
Pull, Add B to X) 

2.0 LILbug MONITOR OVERVIEW 

The standard MC6801 ROM pattern contains the 
LILbug monitor. This ROM monitor is used to evaluate 
and debug a program under development. The LILbug 
monitor commands enable the user to: 

• Load a program 

• Verify that a program was properly loaded 

• Dump the program 

• Punch (record) the program on tape 

• Examine and change data in a memory location 

(including I/O) 

• Calculate the offset for relative addressing 



• Examine and change data in the user's program 

registers 

• Insert, display, and remove breakpoints in the 

program 

• Freerun or trace through the user's program 

The 6801 LILbug monitor is designed to enable a userto 
modify the system to meet his specific hardware and 
software needs. The main areas of flexibility are: 

• I/O device independence 

• Interrupt vector independence 

• Command table expandability 

3.0 COMMANDS 

3.1 COMMAND FORMAT 

The general command format is: 
<Command> <Delimiter> [<ArgXDelimiter> [<Arg>]] 

The command name is followed by a delimiter of space, 
comma, or carriage return. If there are no arguments, 
carriage return terminates the command; otherwise a 
space or a comma separates the command from its 
argument. A space or comma separates arguments from 
each other. The "." and 7" are special quick commands 
that do not need carriage returns. 

3.2 COMMAND DESCRIPTION 
LOAD L 

L <Offset> 

Load a tape file. Figure 3.2 shows the monitor's tape 
format. Load with offset is available by specifying the 
hexadecimal <offset>. The offset is added to the address 
on tape to get the load address. All offsets are positive, but 
wraparound memory modulo64k. For example, to offset a 
load by minus $1000 locations, use $F000 as offset. An 
attempt to load into ROM, protected RAM, or non-existent 
memory terminates the command after printing '?'. A 
checksum error also prints '?' and terminates. On some 
tape readers, several extraneous characters are 
transmitted before the tape reader is turned off. These 
characters will sometimes print after the prompt on the 
console. 

Example: 

Sc'Olc" 600 400 080 300 440 EF0 y 

£fil8-fifi lRfi 7F»"i 65 EEm 

!L 

■£01q.-60 40 O.y OS 30 44 BF 1R 7F 

!301£.--4£ 05 03 03 CO 60 FDFDFF 

! L 10 

■30 13 .-'6 4 03 03 3 44 EF 1R 7F 



$0D 



$0A 



$00 



$53 



CC 



CHECKSUM 



LEADER (NULLS) 

CR 
LF 

NULLS 

S = START OF 
RECORD 

TYPE OF RECORD 
(CC = $31 or $39) 

BYTE COUNT 



ADDRESS 



DATA 



CHECKSUM 



Figure 3.2 — Tape Format 



VERIFY V 



V <Offset> 



Verify or compare the contents of memory to the tape 
data. A hexadecimal <offset> can be specified. A 
checksum error, a bad compare, or non-existent memory 
prints '?' and then terminates. 

Example: 

! V 1 



PUNCH P <Adr1> , <Adr2> 

Punch or record formatted binary object tape as shown In 
figure 3.2. Start at <Adr1> and punch through <Adr2>. 
This routine fails to diagnose an end address smaller than 
the beginning address. With low speed the values 
punched to tape may also print to console. High speed 
may cause some garbage characters to print to the 
console during the punch. 
Example: 

!F 2 012 2 0A6 




KiJOO 0FC 



DISPLAY D <Adr1>, <Adr2> 
D <Adr1> 
D 

Display contents of memory in hexadecimal followed by 
the literal ASCII characters. Start at <Adr1>and print 
thru <Adr2>. Ignore the command if the beginning 
address is larger than the end address. The command 
prints blocks of 16 bytes — <Adr1> is masked back to 
the beginning of a block and <Adr2> is extended to the 
end of a block. If only one argument is specified, display a 
block of 48 words surrounding address <Adr1>. If no 
argument is given display a block of 48 words containing 
the last location used in memory examine. 
Example: 
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Initiate the memory examine/change function. Print the 
value at <Adr> and maintain a pointer to that address. 
<Adr> is 1 to 4 hex digits not counting leading zeroes, 
and it must be followed by a a delimiter of space or slash. 
The form <Adr>/ cannot start with characters 'A' through 
'F\ If the address would normally start with 'A' thru 'F\ 
zero should precede the address. For example: OFFFE/ 
instead of FFFE/. The user may execute a combination of 
the following sub-commands to modify the current 
memory location, look at consecutive words of memory, 
move the memory pointer, or terminate memory examine. 



• <DATA> — Enter one byte of data to replace the value 
at the current pointer. There is no size check on the data. If 
<DATA> is more than two digits, the right-most byte of 
data becomes the new value. 

• SPACE — Increment the current pointer and print the 
value at the new address on the same line. 

• , — (Comma) Increment the pointer to the next memory 
location with no print of address or value. This allows 
insertion of data without seeing current values in memory. 

• LF — (Line feed) Increment the pointer to the next 
memory location, print the address and value at that 
address on the next line. 

• UA — (Up arrow) Decrement the pointer to the previous 
memory location. Print the new address and its value on 
the next line. 

• / — (Slash) Print the current address and the value on 
the next line. 

• CR — (Carriage return) Terminate the memory examine 
command. 

Any other input terminates the memory examine 
command. 



Example: 

!M 2000 30 
12000/30 
1FFFE/ 
? 

IOFFFE/30 00 
12000/3024 3248 3021 



12005/201,2,3,4,5 



* MEMORY EXAMINE 

* Address cannot start with 

* "A" thru "F" 

* Zero should precede the address 

* Change 30 to 24 at address 2000 

* Space moves pointer to address 2001 

* where 32 is changed to 48 

* At location 2005 start inserting 

* values 1, 2, 3, 4, and 5 



12005/01 02 03 04 05 



Look at values just inserted 



12 005/01 

2006 02 

2007 03 



* Line feed moves pointer to next 

* memory location 



!2007/03~ 
2006 02~ 
2005 01 



* Up arrow moves pointer to previous 

* memory location 



12005/01/ 
2005 01/ 
2005 01 



* Slash recalls current address 

* printing address and value 



* Carriage return terminates Memory 

* Examine — prompt indicates ready 

* for next command 



SLASH / 

Recall the location last referenced in memory examine 
and print that address and the value at that address. No 
carriage return or delimiter is necessary. 
Example: 

1/2005 01* Slash recalls current address, 
* printing address and value 

OFFSET O <Adr1> <Adr2> (CR) 

Calculate the offset (second byte) of a branch instruction 
from <Adr1>to <Adr2>. <Adr1> should be the address 
of the second byte of a branch instruction. <Adr2> is the 
absolute address for the branch. The command prints the 
offset if it is within the -1 27 to +1 28 byte range, otherwise it 
prints '?' and returns to main control loop. If the range is 
valid, <Adr1> is printed and the user can modify that 
location. 

Example: 
! D 2034 2 09A 
65 

2034 0065 
!D 2 034 2 012 
DD 

2034 65DD 
!D 2 034 30 



BREAKPOINT B <Adr> 
B-<Adr> 
B 
B- 

Enter a breakpoint at address <Adr> and print current 

breakpoints. A maximum of four are allowed. 

A question mark is printed if 4 breakpoints are already set. 

B -<Adr> 

Remove the breakpoint at address <Adr>and print the 

remaining breakpoints. 

B 

Display all breakpoints. 

B- 

Remove all breakpoints and show empty breakpoint table. 

Examples: 
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REGISTER R 

Display the contents of the program registers and 

counter. The registers are printed in the format: 

P-XXXX X-XXXX A-XX B-XX C-XX S-XXXX 

P- 

where: 

P = program counter 

X - index register 

A = accumulator A 

B = accumulator B 

C = condition code register 

S = stack pointer 

XX = values in registers 

Register P is ready for update. New values may be 

inserted or the register change function can be 

terminated. 

The following inputs are valid: 

<DATA> — Insert new value for the current register. 
There is no validity check on the length of the data, so the 
right-most byte or double byte, whichever is appropriate 
for the register becomes the new register value. 

SPACE — Print register value unless <DATA>changed 
its value. Move the register pointer to the next register, 
printing the mnemonic and a dash. 
Any other input characters terminate the register 
command. The command terminates after examining 
and/or updating the stack pointer. 

Example: 

■ R 

p - X - R - B - C -D S - BB 

P-£000 X- 00 Ff- 123456 B- C- Iifi S-fifi 

■R 

P-2 000 X-0 00 fi-56 B-0 C-D0 S-fiO 



GO G <Adr> 
G 

Execute starting from <Adr>. Execution will continue 

until a breakpoint (3F) is detected. 

G 

Execute starting at the current program counter setting. 



CALL 



C <Adr> 
C 



Call and execute a user routine as a subroutine starting at 
address <Adr>. A return address to the monitor is stored 
in the users stack. Breakpoints are recognized and trace 
can be used after initiating a "C" command. When the user 
"RTS" is executed, the monitor gets control, prints 
registers and returns to the main calling routine. The user 
PC then points into the monitor. 
C 

Same as C <Adr> except start executing from the current 
program counter. 

TRACE T <Hex number> 

Trace the specified number of instructions where <hex 
number> is a maximum of $FFFF. The opcode, program 
registers, and counter are printed after each instruction. 
The format of the print line is: 

OP-<Op> P-XXXX X-XXXX A-XX B-XX C-XX S-XXXX 
where: <Op> = opcode of last instruction executed 
P = program counter 
X = index register 
A = accumulator A 
B = accumulator B 
C = condition code register 
S = stack pointer 
XX = value in register 



Example: 
P-c' OOir' X^lOOl fi-00 B-BP C-BO 2-00ft0 

DP- 01 P-S0 03 
D p '-01 P-2004 
DP- 01 P-S0.05 



X-1001 
X-1001 
X-1001 



H-UU 
P-00 
fl-00 



B-BF C-Dft S-OOBO 
B-BF C-DO S-OQRO 
B-BF C-DO 3-00*0 



NEXT 



The character '.' (period) with no carriage return will trace 

the next instruction and print the trace line. 

Example: 

i m 

DP-4C P-S006 X-1001 R-01 B-BF C-DO 2-00*0 
i 

DP-7E P-2000 X-1001 R-01 B-BF C-DO 3-0 OR 
CONTROL X 

Return control to the main command loop. Control 'X' is 
recognized during display and trace print out, and 
whenever the monitor is reading console input. 

CONTROL W 

Halt print and wait until input character signals 
continuation of print. This command is recognized during 
trace print and during display memory print. Print is 
halted until any character is input, then print continues. 

HIGHER HI 

Set speed to 1200 baud (-M024), set padding and set bits 
in on-chip serial I/O RMCR (rate and mode control 
register). When changing speeds, tape readers and 
punches should be off-line to prevent accidental read or 
write during the transition. 

HIGHER YET HY 

Set speed to 9600 baud (-M28), set zero padding. This is 
for CRT terminals. Tape recorders and punches should be 
off-line when changing speeds. 



4.0 MONITOR OPTIONS 

Since versatility is built into the MC6801, versatility, 
expandability, and ease of use were the primary design 
criteria of LILbug. LILbug can be used in either the single 
chip or expanded modes of the MC6801. It can be 
configured to use on-chip I/O, standard external devices 
(e.g., ACIA, VDG, PTM), or user defined external I/O (e.g., 
keyboards, displays). All interrupt vectors are accessible 
to the user and can be redefined to point to user written 
interrupt routines. Furthermore the user can define 
additional variable length commands or redefine existing 
ones to suit his needs. This flexible design will hopefully 
allow LILbug to become a defacto standard for the basic 
monitor of all MC6801 based systems. 

Often versatility is traded for ease of use. This is not true 
for LILbug. The monitor initializes all variables to 
convenient defaults so that a user who wishes to become 
familiar with the MC6801 and use its on-chip I/O need not 
even be aware of the more esoteric features of LILbug. All 
he needs to do is build the simple circuit explained in 
section 5.1, find a RS232 compatible terminal, push reset 
and his system is up and running. 

4.1 IO INDEPENDENCE 

Monitor I/O is indirect. All I/O calls are to a device type: 

1. single-byte input (console keyboard) 

2. single-byte output (console print) 

3. high speed print 

4. high speed punch/load device 

Each device has three routines associated with it: 

1. initialization 

2. data in/out 

3. device termination 

Before a device is used by the monitor it will issue a call 
to the routineto initialize that device. Normal datatransfer 
is done thru the data in/out routines and devices are 
terminated thru the device termination routine. Data 
transfers can be of two types: serial or block. In serial 
transfers the byte of data is passed to or from the data 
in/out routines in the A-register. For the high speed print 
and high speed punch/load, the address of a data packet 
is passed to the in/out routine. See Appendix B routines 
HSDTA and BSDTA for details of the format of the data 
packet. 

The addresses for these device routines are ordered in a 
table. The address of the table is stored in 'IOPTR' at RAM 
location $OFC. The monitor calls an I/O routine by setting 
register B as an index into the I/O table, and then calling 
routine IO. Routine IO retrieves the address from the table 
and does a subroutine call. 

The LILbug monitor defaults to the on-chip serial input 
and output routines for the Silent 700®. The monitor's 
high speed routine writes blocks of data to the console 
output device. The default high speed punch/load device 
routines are for a Silent 700® cassette. The monitor's 
RESTART code initializes IOPTR' to point to its default 
table. Following is the default I/O table as defined in 
LILbug. 



Silent 700 is a registered trademark of Texas Instruments. 



00171 
00172 
00173 
00174 
00175 
00176A 
A 
A 
00177A 
A 
A 
00178A 
A 
A 
00179A 
A 
A 



F85B 
F85D 
F65F 
F861 
F863 
F865 
F867 
F869 
F86B 
F66D 
F86F 
FS71 



F8C8 
F831 
F8D1 
F8D2 
F8A8 
F8D1 
F8D1 
FDEC 
F8D1 
FEAF 
FEC3 
FEBA 



**************** 10 TABLE *************** 

* ROUTINE 10 IS CALLED WITH 

* INDEX INTO 10 TABLE CI OR INTO USER 10 TABLE 

* IOPTR POINTS TO THE 10 TABLE TO BE USED 

* THE INDEX TABLE DEFINES ORDER OF 10 ROUTINES IN 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



10 TABL 



CI 



FDB CION,CIDTA,CIOFF 



FDB CO0N,CODTA,CO0FF 



FDB HSON,HSDTA,HSOFF 



FDB BSON,BSDTA,BSOFF 



00181 * THE FOLLOWING 

00182 0000 A CI. ON EOU 

00183 0002 A CI.DTA EQU 2 

00184 00O4 A CI. OFF EQU 4 

00185 0006 A CO. ON EOU £ 

00186 0008 A CO.DTA EQU S 

00187 000A A CO. OFF EQU *A 

00188 000C A HS.ON EQU *C 

00189 0O0E A HS.DTA EQU fE 
00130 0010 A HS.OFF EQU *1 
00191 0012 A BS.ON EQU SI 

00132 0014 A BS.DTA EQU fl 

00133 0016 A BS.OFF EQU *1 
00194 * 

The user can redefine the I/O by writing his own 
routines and putting the addresses of the routines in his 
table. The routine addresses should be in the same order 
as shown in the previous table. The user may wish to 
redefine only part of the I/O routines. In this case, he 
should fill in the table with the monitor's addresses for 
those routines he does not change. He must then initialize 
'IOPTR' with the address of his table. 

The program — USERIO (Appendix C) — is an example 
of redefining the I/O to use an ACIA instead of the on-chip 
serial I/O. USERIO defines the initialization and 
character input/output routines using an ACIA. The other 
I/O routines used are from the monitor. 

4.2 INTERRUPT VECTORS 

The 6801 modes define internal or external vectors. If 
the vectors are internal, they are in the LILbug ROM. The 
monitor is designed to allow any of the ROM vectors 
except RESTART to be user defined. The interrupt 



ARE INDICES INTO 10 TABLE 

INIT INPUT DEVICE 

INPUT A CHAR UI^NO WAIT 

DISABLE INPUT DEVICE 

INIT OUTPUT DEVICE 

OUTPUT A CHAR W/PADDING 

DISABLE OUTPUT DEVICE 

INIT HIGH SPEED OUTPUT DEVICE 

OUTPUT BLOCK OF DATA 
DISABLE HIGH SPEED DEVICE 
2 INIT PUNCH/LOAD 
4 WRITE DATA BLK TO PNCH/LOAD 
6 DISABLE PUNCH/LOAD 

address is retrieved indirectly from a table whose address 
is in 'VECPTR' at RAM location $OFE. The table must 
contain addresses or dummy addresses for seven 
interrupts. The monitor's restart code initializes 'VECPTR' 
but the user may define his own vector table in ROM or 
RAM by changing 'VECPTR'. 



/Vord 


Vector Table 


$0 


Serial 


2 


Timer Overflow 


4 


Timer Output 


6 


Timer Input 


8 


IRQ1 


A 


SWI 


C 


NMI 



Following is a listing of the vector table defined in 
LILbug. 
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01625 








* VECTOR T£ 


iBLE - ADR OF INTERRUPT VECTORS 


01626 








fc MAY BE RE 


[DEFINED BY USER TABLE IN SAME FORM 


01627A 


FFC8 


FCE1 


A 


SERIAL FDB 


DUMMY NOT USED BY MONITOR 


0162SA 


FFCA 


FCEi 


A 


TItlOVF FDB 


DUMMY 


01623A 


FFCC 


FCEl 


A 


TIMOUT FDB 


D U M M Y 


01630A 


FFCE 


FCEI 


A 


TIMIN FDB 


DUMMY 


0163*1 A 


FFD^ 


FCEl 


A 


IRQ! FDB 


DUMMY 


01632A 


FFD2 


F821 


A 


SWI FDB 


IN, SWI 


01633A 


FFD4 


F803 


A 


NMI FDB 


IN. NMI 


01634 








* DUMMY IS 


AN RTI 



The monitor defines SWI and NMI. All other interrupts 
default to an 'RTT instruction. The LILbug SWI is used for 
the monitor breakpoint command. The NMI is used by 
trace and breakpoint. The NMI vector controls the type of 
hardware tracing, either on-chip timer, or PTM 
(Programmable Timer Module). 

The internal vector default uses theon-chiptimerentry. 
Address $F803 is the NMI vector for trace using the on- 
chip timer, and address $F800 is for the PTM trace 
processing. This vector should not be changed after 
monitor initialization. The initialization defines the timer 
according to the address in the NMI vector. The chip must 
be in an expanded mode to use a PTM. SWI and NMI can 
be defined for other uses, if breakpoint and trace are not 
used. 



4.3 USER-DEFINED COMMANDS 

The LILbug monitor has a command table consisting of 



entries in the form: 



Word 



1 

n 

n + 1 
n + 2 



# bytes in entry 
including this byte 



ASCII Command Name 
(variable n bytes) 



Routine address 



The monitor reads a command and does asearch of the 
command table to find a match with the ASCII command 
name. If a match is found, a subroutine call is maide to the 
routine address following the command name. If no 
match is found, a question mark is printed. The user can 
define new commands and have his command table 
searched prior to the monitor comand table. The address 
of the command table is stored in 'FCTPTR' at RAM 
location $OFA. Command names are of variable length. 
Decimal numbers are not allowed in command names. 
The characters 7' and 7 are special quick commands that 
cannot be redefined. A terminating word marks the end of 
the table. A negative one indicates the monitor table is 
also to be searched. A negative two means the monitor 
commands are not being used. Since the user table is al- 
ways searched first, the user can redefine existing 
commands. Program USERIO (Appendix C) is an ex- 
ample of redefining LILbug commands. USERIO defines 
ACIA I/O and redefines the commands, HI and HY, to 
change output padding for ACIA baud rate change. 

Figure 4.3 is the command table as defined by LILbug. 



00 1 1 
00111 
00112 

©0113 
00114 
00115 
00116 
00117 

ooi la 

00119 
00120 
00121 
00122 

00123 

00124 

00125 

00126 

00127 

00128 

00123 

00130A 

00131A 

00132A 

00133A 

00134A 

0O135A 

00136A 

00137A 

00138A 

00139A 

00140A 

O0141A 

00142A 

00143A 

00144A 

00145A 

00146A 

00147A 

00148A 

00149A 

00150A 

00151A 

00152A 

00153A 

00154A 

00155A 

001 56A 

001 57A 

00158A 

A 
00159A 
OO1S0A 
00161A 

A 
00162A 
00163A 
O0164A 
001 65A 
00166 A 
00167A 
001 68A 
00169A 



F824 
F825 
F826 
F828 
F829 
F82A 
F82C 
F82D 
F62E 
F830 
F831 
F832 
F834 
F835 
F83G 
F838 
F839 
F83A 
F83C 
F83D 
F83E 
F840 
F841 
F842 
F844 
F845 
F84G 
F848 
F849 
F84A 
F84B 
F84D 
F84E 
F84F 
F850 
F852 
F853 
F854 
F856 
F857 
F858 
F85A 



F824 
04 

42 

FB98 

04 

43 

FCOF 

04 

44 

FD86 

04 

47 

FCU 

04 

4C 

FE9A 

04 

4D 

FA5B 

04 

4F 

FAB4 

04 

50 

FE72 

04 

52 

FB1E 

05 

48 

49 

F8E9 

05 

48 

59 

F8F1 

04 

54 

FC46 

04 

56 

FEAB 

FE 



********** COMMAND TABLE ********** 

* THERE MAY BE AN EXTERNAL TABLE OF THE SAME 

* FORMAT. 'FCTPTR' POINTS TO THE TABLE TO 

* BE SEARCHED FIRST. THE USER CAN DEFINE 

* HIS OWN TABLE AND SET FCTPTR . 
* 

* EACH ENTRY IN THE TABLE IS AS FOLLOWS: 

* FCB XXX XXX=T0TAL SIZE OF ENTRY 

* FCC /STRING/ STRING IS THE INPUT STRING 

* FDB ADDR ADDR IS THE ROUTINE ADDRESS 
* 

* THE LAST ENTRY IS: 

* -l^END EXTERNAL TABLE, SEARCH INTERNAL TABLE 

* -2=END OF TABLECS) 
* 

* NOTE: AN EXTERNAL FUNCTION TABLE TERMINATED BY 



-1 

IF 



A 
A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



* 
* 
* 
FCTABL 



, THE INTERNAL 
TERMINATED BY 



TABLE WILL ALSO BE SEARCHED. 
-2, INTERNAL TABLE NOT CHECKED, 



EQU 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 

FDB 
FCB 
FCC 

FDB 
FCB 
FCC 

FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 



* 

4 

/B/ 

BRKPNT 

4 

/C/ 

CALL 

4 

/D/ 

DISPLY 

4 

/G/ 

GOXQT 

4 

/LV 

LOAD 

4 

/M/ 

MEMORY 

4 

/O/ 

OFFSET 

4 

/P/ 

PUNCH 

4 

/R/ 

REGSTR 

5 

/HI/ 

S120 

5 

/HY/ 

HY 

4 

/T/ 

TRACE 

4 

/V/ 

VERF 

-2 



* 

* 



* 
* 



*END OF TABLE 



Figure 4.3 



4.4 HARDWARE TRACE 

Hardware trace permits a user's program to be 
executed one instruction at a time. Trace and breakpoint 
functions need this ability. The trace will operate on 
programs in either RAM or ROM. The circuitry as 
diagramed below consists of NMI tied to the output of the 
on-chip timer or to the inverted output of a PTM 
(Programmable Timer Module). Figure 4.4. shows the 
output waveform and timing for the on-chip timer and the 
PTM. 

+ 5V 



3.3K 



MC6801 




Hardware Trace Using the MC6801 Timer 



MC6801 



NMI 

0- 



74LS04 



< 



Output 1 



MC6840 



Hardware Trace Using the PTM 



Using the on-chip timer, Port 2 is set for output and the 
output level bit in the TCSR (Timer Control/Status 
Register) is set low. The on-chip clock is read. That time is 
adjusted and stored in the OCREG (Output Compare 
Register) such that the compare occurs after the first 
cycle of the next user instruction. After storing the 
OCREG, the monitor does an 'RTI'. When the compare to 
the OCREG occurs, the output wave goes low 
(corresponding to low setting of level bit in TCSR). The 
low transition causes an NMI. NMI vectors back to the 
monitor. The output waveform is brought high by setting 
the level bit in TCSR and by setting OCREG for another 
compare. 



If a PTM is selected for trace instead of the on-chip 
timer, timer 1 is used. NMI is tied to the inverted output. To 
execute one user instruction, latches are set such that the 
output level changes after the first cycle of the user 
instruction. The PTM output level returns to its initial level 
after one cycle. 

4.5 INITIALIZATION 

An MC6801 mode that best allocates resources for the 
user's software must be selected. The MC6801 has eight 
hardware selectable modes controlling on-chip use of 
ROM, RAM, interrupt vectors, and I/O ports. Figures 4.5.1 
and 4.5.2 are the mode select chart and mode overview. 

Modes 2, 3, and 4 cannot use the monitor since the 
internal ROM is not used. Mode is a test mode designed 
to check on-chip memory. Mode 7 is minimal having only 
the on-chip ROM (monitor) and 128 bytes of on-chip 
RAM. The monitor uses about half of the on-chip RAM. 
The monitor stack is at address $OCF, and RAM variables 
are from $ODO to $OFF. The user has the low addresses 
in RAM. Modes 1, 5, and 6 allow development of large 
programs since they can have expanded memory. In 
modes 5 and 6, the user must program port 4 as output to 
have external memory. Modes 5 and 6 have internal 
vectors while mode 1 has external vectors. Mode 1 is most 
easily used with programs that use PTM trace, or 
programs that redefine I/O devices. For these programs, 
external devices (and addresses) are necessary. Also, 
external vectors allow the user to jump to his own 
initialization routine at RESET. 

If the 6801 is in a mode that has internal vectors and 
LILbug enabled, the RESET vector initializes the 
monitor's on-chip serial I/O and on-chip timer for 
hardware trace and breakpoint. The vector table, 
command table, and I/O tables are initialized. Calls are 
made to turn on console reader and printer and I/O 
devices are initialized. 

If the user selects a monitor option, such as adding 
user-defined commands to the command table, a mode 
with external vectors is usually more convenient. The 
RESET vector would then jump directly to a user 
initialization routine. The user needs to set the command 
table pointer, and then jump into the monitor RESET code 
such that the table pointer is not redefined to the monitor 
default. This may cause omitting other initialization which 
the user routine needs to do prior to entering the monitor. 
An example is USRCMD in Appendix C. The routine 
defines a conversion command. The program sets the 
pointer to the user-command table, and also the pointer to 
the monitor l/Otable. USRCMDthen jumps to the monitor 
code following the monitor setting of the command table 
pointer 

When the user selects mode 1, which allows external 
vectors with the internal ROM, the MC6801 will input data 
from the external data bus for the addresses $FFF0 
through $FFFF. This function allows the user to define 
his own vector table in the MC6801 memory map. A full 
decode of the external memory is not required, due to the 
architecture of the MC6801, which selects either the 
internal data bus or external data bus to read the data for 
these sixteen memory locations. 
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Cycle 

#1 



Cycle 

#2 



Cycle 

#3 



Cycle 

#4 



Cycle 

#5 



Cycle 

#6 



Cycle 

#7 



Cycle 

#8 



Cycle 

#9 



Cycle 
#10 



Cycle 

#11 



Cycle 

#12 
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Address 
Bus 



RTI Opcode SP SP + 1 SP + 2 SP + 3 SP + 4 SP + 5 SP + 6 SP + 7 User 

Fetch CC B A XHI XLO PCHI PCLO INSTR 



PTM Output 
(Inverted) 



RTI 



lb 



Interrupt 
Process 



L = 1, M = 5 



(L + 1)..(M + 1) 



User Instr 



MC6801 Timer- 
Output 



RTI 



Set 

OCREG 

$OB 

(Reset Holds Timer Output Level High) 



Output Compare NMI Output Compare 



User 
Instr 



-)>■ 



Interrupt 
Process 



Hardware Trace 

NMI Tied To PTM or On-Chip 

Timer Output 

Figure 4.4 



MODE 


PC2 PC1 PCO 


ROM 


RAM 


INTERRUPT 
VECTORS 


BUS 
MODE 


OPERATING 
MODE 


7 


H H H 


I 


I 


I 


I 


Single Chip 


6 


H H L 


I 


I 


I 


MUX (6) 


Multiplexed/Partial Decode 


5 


H L H 


I 


I 


I 


NMUX (6) 


Non-Multiplexed Partial Decode 


4 


H L L 


l(2) 


"(1) 


I 


I 


Single Chip Test 


3 


L H H 


E 


E 


E 


MUX 


Multiplexed/No RAM or ROM 


2 


L H L 


E 


I 


E 


MUX 


Multiplexed/RAM 


1 


L L H 


I 


I 


E 


MUX 


Multiplexed/RAM & ROM 





L L L 


I 


I 


l(3) 


MUX 


Multiplexed Test 



LEGEND: 






I — Internal 


MUX — Multiplexed 


L — Logic "0" 


E — External 


NMUX — Non-Multiplexed 


H — Logic "1" 



NOTES: 

(1) Internal RAM is addressed at $XX80 

(2) Internal ROM is disabled 

(3) RESET vector is external for 2 cycles after RESET goes 
high 

(4) Addresses associated with Ports 3 and 4 are 
considered external in Modes 3 and 4 



(5) Addresses associated with Port 3 are considered 
external in Modes 5 and 6 

(6) Port 4 default is user data input; address output is 
optional by writing to Port 4 Data Direction Register 



MC6801 Mode Selects 
Figure 4.5.1 



OVERVIEW OF MC6801 OPERATING MODES 



COMMON TO ALL MODES: 

• Reserved Register Area 

• I/O Port 1 Operation 

• I/O Port 2 Operation 

• Timer Operation 

• Serial I/O Operation 
SINGLE CHIP-MODE 7 

• 1 28 bytes of on-chip RAM; 2048 bytes of on-chip ROM 

• Port 3 is parallel I/O handshaking port 

• Port 4 is parallel I/O port 

EXPANDED MEMORY SPACE/NON-MULTIPLEXED 
BUS-MODE 5 

• 128 bytes of on-chip RAM; 2048 bytes of on-chip 
ROM 

• Port 3 is 8-bit data bus 

• Port 4 is optional 8-bit address bus 

• 256 bytes of external memory space 



• External memory space select output (IOS) 
EXPANDED MEMORY SPACE/MULTIPLIED BUS- 
MODES 1, 2, 3, 6 

• Port 3 is multiplexed address/data bus 

• Port 4 is address bus 

• 4 memory space options 

(1) No internal RAM or ROM (Mode 3) 

(2) Internal RAM (Mode 2) 

(3) Internal RAM and ROM (Mode 1) 

(4) Internal RAM, ROM with partial address bus 
(Mode 6) 

TEST-MODES and 4 
•Expanded Test-Mode 
May be used to test internal RAM and ROM 

• Single Chip and Non-Multiplexed Test- Mode 4 

(1) May be changed to Mode 5 without RESET 

(2) May be used to test Ports 3 and 4 as I/O ports 



Figure 4.5.2 
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4.6 JUMP TABLE 



LILbug subroutines and entries frequenty used are in a 
jump table at the beginning of LILbug. These entries 
should be used whenever possible to insure compatibility 
with future versions of the monitor. Following is the jump 
table as defined in LILbug: 



0O094A FS00 








ORG 


«F800 


C£l 14 
















00096 










* JWP 


TABLE 


TO SUBR 


00097A 


F800 


7E 


FC7E 


A 


EX .NMI 


JMP 


M .NMI 


00098A 


F803 


7E 


FC79 


A 


IN . NMI 


•JMP 


C .NMI 


00099A 


F806 


7E 


F873 


A 


I NCHNP 


-J M p 


INCH1 


00100A 


F 8 3 


7E 


F88A 


A 


OUTCH 


JMP 


0UTCM1 


00101 A 


FS$C 


7E 


FB07 


A 




•JMP 


PDATA1 


00102A 


F30F 


7E 


FB0E 


A 




JMP 


PDATA 


00103A 


F812 


7E 


FADE 


A 




JMP 


0UT2HS 


1 4 A 


F815 


7E 


FADS 


A 




J M P 


U T 4 H S 


00105A 


F818 


7E 


FB12 


A 




JMP 


PCRLF 


001 06A 


F81B 


7E 


F A D D 


A 




JMP 


SPACE 


001 07 A 


FS1E 


7E 


FSFG 


A 


STRt 


JMP 


START 


00108A 


F821 


7E 


FD5F 


A 


IN.SWI 


JMP 


M . R [A I 



■OR PTM 

NMI VECTOR FOR ON-CHIP TIMER 
INPUT 1 CHAR U/ NO PARITY 
OUTPUT i CHAR N/PADD I NG 
PRINT DATA STRING 
PR CR/'LF, DATA STRING 
PR 2 HEX + SP C X ) 
p R^HEX+5p(X) 
PRINT CR/'LF 
p R I \-\ T A S P A C E 
RESTART ADDRESS 
Sill VECTOR 



Following is a description of the jump table entries and 
their associated subroutines. 



Entry 


Address 


M.NMI 


$F800 


C.NMI 


$F803 


INCH1 


$F806 



CIDTA 



OUTCH1 
CODTA 



$F809 



PDATA1 


$F80C 


PDATA 


$F80F 


OUT2HS 


$F812 


OUT2H 


--- - 


OUTHL 
OUTHR 
OUT4HS 


$F815 



Description 

NMI entry for hardware trace using a PTM. The LILbug monitor initializes the PTM if the NMI 

vector is this address. 

NMI entry for hardware trace using on-chip timer. The LILbug monitor initializes the on-chip 

timer if the NMI vector is this address. This is the default NMI vector. 

Call I/O routine CIDTA to input one character into register A. Carry bit is clear until data read, 

then it is set. INCH1 waits for input, clears parity, and ignores rubouts. OUTCH1 is called to 

echo input if OUTSW is clear. 

I/O routine that reads one character of data into register A using on-chip serial I/O. This is a 

read with no waiting for data. Return with carry bit set if data is read, otherwise carry bit is 

clear. 

Call I/O routine to output one character from register A. Saves register B. 

Default LILbug I/O routine called by OUTCH1. Call OUTC to use on-chip serial interface to 

output one character. Write nulls (padding) after output character. OUTSW and CHRNL 

control padding. OUTSW is the tape flag; set to if not tape, set to number of nulls to follow 

character if tape. The upper six bit value of CHRNL is the padding for a carriage return. The 
low two bit value is the padding for other characters. 

Print data string pointed to by register X. Last character of data string should be $04. 
Registers A and X are modified. Call OUTCH1 to print one character at a time. 

Call PCRLF to print carriage return and line feed. Then call PDATA1 to print data string 

pointed to by register X. Registers A and X are modified. 

Output two hexadecimal characters pointed to by register X. Then output a space. Modifies 

register A. Calls OUT2H and SPACE. 

Print two hexadecimal characters pointed to by register X. Calls OUTHL and OUTHR to 

convert and print a byte. 

Convert left four bits of a byte to display code and output. Calls OUTCH1 to print. 

Convert right four bits of a byte to display code and output. Calls OUTCH1 to print. 

Call OUT2H and OUT2HS to print four hexadecimal characters pointed to by register X. 
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PCRLF $F818 Call 0UTCH1 to output a line feed and then a carriage return. 

SPACE $F81B Call OUTCH1 to output a space. 

START $F81E Reset entry point. This is the default RESTART vector. 

M.SWI $F821 Default SWI vector in LILbug monitor. This routine processes breakpoints. 



5.0 HARDWARE REQUIREMENTS 

5.1 MINIMUM SYSTEM 

The minimum system for the MC6801 requires only a 

clock generator, serial communication interface, and 

reset logic. This minimum system is shown in Figure 5.1. 

CLOCK— The two connections XTAL1 and XTAL2 can 

either be used for a parallel resonant crystal or 

an external clock source as shown in Figures 

5.2 and 5.3. 

The frequency of the crystal or clock source should be 

either 4.9152 MHz or 2.4576 MHz to give a standard baud 

rate for the serial communication interface. The following 

table shows the baud rates available with these crystals. 



jy 



XTAL1 



3 



"40I- 



XTAL 


4.9152 MHz 


2.4576 MHz 


02 


1.2288 MHz 


.6144 MHz 


HY 

HI 

Reset 


9,600 Baud 
1,200 Baud 
300 Baud 


4,800 Baud 
600 Baud 
150 Baud 



T 



E=3 

XTAL2 I 



/ 20 P F 






20pF *rr 



Connections For A Parallel Resonant Crystal 
Figure 5.2 




P24 



£23 



4.7K 



+ 5V 



RS232 
Interface 




20pF 



II- 



XTAL2 



-(4xfo) 



XTAL1 



E - 
40| 



Connections For An External Clock 
Figure 5.3 



Serial Communication Interface 

The MC1488 and MC1489A devices provide the system 
with a RS-232C interface capability. The circuit in Figure 
5.4 interfaces the serial input/output of the MC6801 
directly to an RS-232C terminal without any additional 
hardware. 
Reset 

The Reset Funtion should be performed when power is 
first applied and if the LILbug Firmware loses program 
control. The Reset Function is also used to select the 
mode of operation of the MC6801. The circuit shown in 
Figure 5.5 is a simple reset function. The diodes are used 
to select the different modes of operation during reset. 



Minimum System Requirements 
Figure 5.1 
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12V - 12V 



RS-232 



3- 



M6801 



Serial Communication Interface 
Figure 5.4 
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Transmit Data 



Data Set Read 
Clear To Send 
Carrier Detect 



Data Terminal 
Ready 



Receive Data 



Protective 
Ground 

Signal Ground 



- 5V + 5V + 5V +5V 




Simple Reset Logic 
Figure 5.5 
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5.2 EXPANDED SYSTEMS 

When one of the expanded modes of operation is 
selected, I/O Port 3 and I/O Port 4 can not be used as I/O 
lines. A Block Diagram of a Expanded Multiplexed System 
is shown in Figure 5.6. Port 3 becomes the multiplexed 
bus for data and address and Port 4 becomes the address 
bus. Figures 5.7, 5.8, 5.9and 5.10showthe logic required 
to replace the I/O Ports when the MC6801 is operated in 
one of these expanded modes. 





MC6801 


Port 3 






, 










w 






















Latch 






Mode 
Control 




_ 




























AS 


i 




Reset 
Control 




Port 4 





















iData Bus (A0/D0-A7/D7) 



Address Bus (A0-A15) 



Block Diagram Of A Expanded Multiplexed System 
Figure 5.6 
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MODE 7 I/O PORT 3 
FIGURE 5.7 
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MODE 7 

MODE 6 
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6Q 
7Q 
80 



RESET 



DBO 



DB1 



DB2 



DB3 

<dbT 



J)B5 



^DB6 



^DB7 



E 
10 
2Q 
3Q 
4Q 
50 
6Q 
7Q 
8Q 



E OU 



1D 
2D 
3D 
4D 
5D 
6D 
7D 
8D 



5V 



3.3K 



74LS126 



D> 



{>■ 



-D> 



& 



{> 



& 



PORT 4 



DATA DIRECTION REGISTER 



74LS373 



DATA INPUT REGISTER 



MODES 5, 6, AND 7 PORT 4 
FIGURE 5.8 
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74LS243 



DB7 



R/W • 02 
DATA BUS (D0-D7)- 



R/W-02- 



A15 



74LS260 



ADDRESS BUS- 




N^_lI! LS02 

A08 



74LS10 




DB6 



DB5 



DB4 



GAB-*- 




^_4A 



4B 



S wDB3 



S J3B2 



SOUL 



^PBO 



HI 



*-GBA 



GAB GBA 

4A 4B 

3A 3B 

2A 2B 



1A 



1B 



74LS243 
MODES 



► PORT 3 



^ 



•IOS 



MODE 5 I/O PORT 3 
FIGURE 5.9 
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($0006) -R/W 
($0006)»R?W 




DATA BUS 
(D0-D7) 



I/O PORT 3 CONTROL/STATUS REGISTER 
FIGURE 5.10 
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APPENDIX A 

MC6801 MONITOR COMMAND SUMMARY 



L [<offset>] 

V [<offset>] 

D [<adr1> [,<adr2>]] 

P <adr1> , <adr2> 

M <adr> 



<adr>/ 

/ 

O <adr1> <adr2> 

B 

B <adr> 

B-<adr> 

B- 

G [<adr>] 

R 



T [<hex value >] 
C [<adr>] 

HI 
HY 



Load a program from tape. Add <offset>, if specified, to load address on tape. 

Verify that a program was properly loaded. Add <offset>, if specified, to load address on tape. 

Display memory from <adr1> to <adr2>. 

Punch or record contents of memory from <adr1> to <adr2>. 

Set pointer to <adr> and print value at that memory location. 

Next input: 

<data> Change one byte in memory to <data> 

(LF) Increment pointer and print address and value of new pointer. 

(UA) Up arrow, decrement pointer, print address and value of pointer. 

( ) Space, increment pointer and print new value on same line. 

Comma, increment pointer with no print of address or value. 

/ Slash, print address and value of current pointer. 

(CR) End memory examine command. 

Same as M <adr>; <adr> must start with 0-9, zero may precede hex address. 

Print address and value of location last referenced by memory examine. 

Calculate relative offset from <adr1>to <adr2>for branch instructions. 

Display.all breakpoint addresses. 

Set a breakpoint at address <adr> and display breakpoints. 

Remove the breakpoint at address <adr> and display breakpoints. 

Remove all breakpoints and display breakpoints. 

<Adr>, if specified, becomes the new program counter. Execute from program counter. 

Display/modify user's MPU registers. 

Next input: 

<data> Change value of register to <data> 

( ) Space, display register value and move pointer to next register. 

(CR) Terminate register change command. 
Period. Trace one instruction. (No carriage return after period). 
Trace <hex value> number of commands. 

<Adr>, if specified, becomes the new program counter. Execute code as subroutine starting 
at address in program counter. User "RTS" returns to monitor. 
Set speed for on-chip I/O to 1200 baud (-M 024). 
Set speed for on-chip I/O to 9600 baud (-M28). 
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APPENDIX B 

FLOWCHARTS 



1) MAIN — command loop 

2) DISPLAY -— print block of memory command, call HSDTA 

3) HSDTA — print block of data 

4) VERIFY/LOAD/PUNCH — initialization for BSDTA call 

5) BSDTA — bulk store date used by tape commands 

6) MEMORY — examine/change memory command 

7) PRINT/MODIFY registers — R command 

8) OFFSET 

9) BREAKPOINT 

10) GO/CALL/TRACE — execution commands 

11) CRTS — return to monitor after CALL 

12) NMI entry — breakpoint or trace 

13) SWI — breakpoint process 
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MAIN COMMAND LOOP 





SET STACK 
POINTER 


YES 


1 


PRINT 
PROMPT 


| 


READ A 
CHARACTER 


^""^ CO N T R O L**^ 

^^w X ^^^ 
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SAVE MEMORY 
EXAMINE POINTER 



YES 




DISPLAY MEMORY 

D (CR) 

D <adr1> (CR) 

D <adr1Xadr2> (CR) 



YES 



NO 



MEM/EX LOC= 
<adr1> 




NO 



DEFINE <adr1> 

USE MEM/EX 

POINTER 

DEFINE <adr2> 




YES 



NO 



MASK OUT LOW 
4 BITS IN <adr1> 




RESET MEMORY/ 

EXAMINE POINTER 

SET ERROR CC 



^f RETURN J 



CALL IO 

TURN ON POINTER 

PRINT BLOCK OF 

DATA 

TURN OFF PRINTER 




RETURN 
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HSDTA (PRINT BLOCK OF DATA) 

HSDTA is called Indirectly through the routine I/O and is the default high speed print routine. The index pointer 
(register B) for HSDTA is $0E. The I/O Packet contains the start address and the end address. Register X points to the 
I/O Packet that is transferred to all high speed print routines. The I/O Routine "pushes" register X before calling 
HSDTA; therefore the address of the I/O Packet follows the return address on the stack. 

The routine displays a block of memory to the console device by repetitively calling the character output routine. 



WORD 



GET ADDRESS 
OF IO PACKET 
FROM STACK 



— <adr1> — 



PNTR < 
TEMPA 



<adr1> 
: -<adr2> 



— <adr2> — 



IO PACKET 



PRINT HEADING 
'01 . . . EF' 




YES 



YES 




PRINT ADDRESS 

PRINT 16 BYTES 

PRINT ASC11 



YES 




YES 




NO 



POINTER " 



RETURN 
ADDRESS 



REGISTER 
X 



STACK 
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BSDTA (BULK STORE DATA) 

BSDTA is a subroutine that reads and writes tape. The monitor's default Load, Punch, and Verify commands use 
BSDTA. BSDTA is called indirectly by setting the index pointer (register B) to $1 4 and register X to point to the I/O packet; 
then call routine IO. Unless the high speed punch/load device has been redefined, the index points to the BSDTA address 
in the I/O table (defined in the I/O Independence section). The I/O packet passed to all high speed punch/load routines 
consists of a function code indicating load, punch, or verify. The punch I/O packet has a begin address and an end 
address. The load and verify routines have a two-byte offset in the I/O packet. The IO routine pushes register X before 
calling BSDTA; therefore the address of the I/O packet precedes the return address on the stack. This routine calls CIDTA 
and CODTA to do character input and output. 



Function Code 
Verify = -1 


Word 


1 
2 

3 
4 


Code 


Word 


1 
2 

3 
4 


Code = 


Punch = 
Load = 1 


not 
used 


begin 
address 




2-byte 
offset 


« end 
address 




Load/Verify 
I/O Packet 


Punch I/O 
Packet 




Stack Pointer 



Return address 
into monitor 

Address of 
I/O Packet 



Stack 
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BSDTA 
PUNCH 



GET BEGIN AND 

END ADDRESS 

FROM IO PACKET 




FRAME CNT«-23 

t 



ADD 4 TO 
FRAME CNT 



WRITE S1 

ON TAPE 

CLEAR CHECKSUM 



WRITE # BYTES 
WRITE ADDRESS 



WRITE DATA BYTE 
DCR BYTE CNT 



NO 



NO 




YES 



WRITE S9 RECORD 
CLEAR CONDITION 
CODE FOR RETURN 




FRAME CNT«~DIF 



27 



BSDTA 
LOAD/VERIFY 



GET OFFSET 
FROM IO 
PACKET 



READ 
CHARACTER 



NO 




YES 



READ 
CHARACTER 




CLEAR CHECKSUM 
READ BYTE COUNT 



DECR BYTE 
COUNT BY 2 



READ BYTE DATA 

ADD OFFSET 
DECR BYTE COUNT 



YES 




YES 




STORE DATA 



NO 




NO 



COMPARE 
YES 




INCR ADDRESS 



TAPE FORMAT 



NULLS 



$D 
$A 



CR 

LF 

NULL 


'53 
'31 


S (START) 
1 


bb 
bb 


#BYTES 


XX 
XX 
XX 
XX 


ADDRESS 


nn 
nn 


DATA 
BYTE 1 


nn 
nn 


BYTE 2 






nn 
nn 


LAST DATA 
BYTE 


cc 
cc 


CHECKSUM 
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VERIFY LOAD PUNCH 



SET FUNCTION 

CODE = -1 IN 

IO PACKET 



SET FUNCTION 
CODE = 1 IN 
IO PACKET 



SET FUNCTION 
CODE = IN 
IO PACKET 



^\ YES 




READ adrl, adr2 
STORE IN IO PKT 


<^ CH 3> 




1^ NO 




1 


1 U 




r 


PRINT CR/LF 

SET TAPE/NO 

ECHO FLAG 


READ OFFSET 
STORE IN IO PKT 


1 









TURN ON TAPE 
IO CALL TO BS ON 



REG X «-|0 PKT 
ADDRESS 

'IO CALL TO BSDTA 
(BULK STORE) 



SAVE CONDITION 
CODE AS STATUS 
FLAG ON RETURN 



TURN OFF TAPE 
IO CALL BSOFF 
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MEMORY EXAMINE/CHANGE 



ENTRY AFTER 
M RECOGNIZED 




SET ERROR 

CONDITION 

CODE 



SAVE CURRENT 
POINTER 



NO 



READ 



YES 




SET ERROR 

CONDITION 

CODE 



SET ERROR 

CONDITION 

CODE 



-/return] 




INCR POINTER 
PRINT CR 



SLASH 

COMMAND 

/<adr> 

READ 
ADDRESS 



PRINT ADDR, 
SPACE 
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PRINT/MODIFY REGISTERS 



"POINT TO REG 
MNIT OFFSET 
INTO ARRAY 



SAVE X 
(REGISTER 
POINTER) 



X ^ARRAY OF 

REG NAMES 
ADLD OFFSET (B) B) 



PRINT REGISTER 
NAME, DASH 



R COMMAND CALLS 

THIS ROUTINE FOR PRINT 

AND FOR MODIFY. 



FLAG SETTING 



¥= PRINT 
= MODIFY 



SET # BYTES 
RETRIEVE REG 




MODIFY 



PRINT BYTE 



PRINT BYTE 



NO 



NO 



UPDATE ARRAY 
POINTER 





PRINT CONTENTS 

OF CURRENT 

REGISTER 



STORE BYTE 



STORE 2 BYTES 
INC. REG POINTER 



YES 




INC. REGISTER 
POINTER 



31 



OFFSET 




YES 



YES 



NO 




NO 



NO 




NO 



NO 



A:B - <Adr 2 > 

A:B- A:B-<Adr1>-1 

(UNSIGNED SUBT) 




YES 



YES 




NO 




YES 



SUBROUTINE 
RD2ADR 




PRINT SPACE 
PRINT REG B 
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BREAKPOINT 





PRINT CR/LF 

PRINT ADDRESSES 

INTABLE 




CLEAR BREAK 
POINT TABLE 



REMOVE 
FROM TABLE 
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GO/CALL/TRACE 



CALL 



GO EXECUTE 



TRACE 



SET CALL 
FLAG 



(TRACE ONE 
INSTRUCTION) 




SET NUMBER OF 
INSTRUCTION TO 

TRACE 

TRACE N«-REG X 

SET EXONE 




CLEAR EXONE 



I 



SET PC 




NO 



CLEAR CALL FLAG 
STORE RETURN 

TO MONITOR 

ON USER STACK 

SAVE MONITOR'S 

RTN 




YES 
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CRTS-ENTRY INTO MONITOR WITH «C COMMAND 
AFTER EXECUTE USER 'RTS' 
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NMI ENTRIES 



FROM $F803 



FROM $F800 



POSSIBLE 

EXECUTE 

ONE 

INSTRUCTION 

AFTER A 

BREAKPOINT 




PI 






















SAVE USER 
REGISTERS 






REMOVE BRKPNTS 
FROM CODE 



CLEAR EXECUTE 
1 INSTR FLAG 



DECR TRACE 
COUNT (NTRACE) 



INSERT 
BREAKPOINTS 



CLEAR EXECUTE 
1 INSTR FLAG 




PUT REGISTERS 
ON STACK 




SAVE PC FOR 
REGISTER PRINT 




YES 



SET LATCHES 

IN PTM FOR 

TIMER 



SET PORT 2 

CLEAR OLVLBIT 

SET OUTPUT 

COMPARE 
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SWI (BREAKPOINT PROCESSING) 



SAVE STACK, 
REGISTERS 



RESET STACK 
POINTER 



pc«-pc - 1 



NO 



ERROR - 
EXONE<"0 
NTRACE «-0 




YES 



NO 



REPLACE BRKPNT 
WITH OPCODES 

EXONE «~$FF 




PRINT 
REGISTERS 




CALLS SUBROUTINES - 



MOVSTK 



MOVE USER REGISTER FROM STACK 
TO RAM STORAGE IN MONITOR 



SET B 



SET BREAKPOINTS (3F) IN USER 
CODE, SAVING OP CODES. 



RBRK 



REMOVE BREAKPOINTS FROM USER 
CODE, REPLACING WITH OP CODES. 
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APPENDIX C 

SAMPLE PROGRAMS 

The following routines illustrate the monitor flexibility previously described: 

1. User-defined I/O — USERIO redefines console input an output to use an ACIA instead of the on-chip serial I/O. 
USERIO must run in an expanded mode to enable use of external resources (I.e. ACIA). 

2. User-defined vectors in an internal vector mode — OVERFLOWtests timer overflow. An interrupt routine is defined 
vector table is redefined. 

3. User-defined commands — USRCMD adds a command which redefines the monitor's C command. The new 
command is also referenced as CNVRT$DEC The command converts a decimal number to hexidecimal. 

4. Alternate hardware for trace — USEPTM sets the NMI to indicateuse of a PTM. This must run in expanded mode 
with external vectors. 
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PAGE 001 



FAGE 002 



CO 



00001 

00002 
00003 
00004 

00005 
00007 

0000S 
00009 

0001 
0001 1 



00FC 
F906 
00F6 
00D5 



000 1 3 

00014 

000 15 A 3000 

0001 SA 3000 CE 300B 

0001 7A 3003 DF FC 

000 ISA 3005 CE 3068 

000 ISA 3008 7E F906 

00021 

00022 
00023 
00024 
00025 
00026 
00027 
00028 



00030 

00031 

00033 
00034 
00035 
0003b 
00037 
000 36 
00039 
0004 

00042 
00043 
00044 
00045 
00046 
047 
00048A 300B 

A 

A 
00049A 3011 

A 3013 

A 3015 
00050A 3017 

A 3019 

A 301B 
00051 A 301 D 

A 301 F 



300D 
300F 



F8D2 

F8D1 
F8D1 
FDEC 
F8D1 

FEAF 
FEC3 
FEBA 



9CF4 
9CF5 



3023 
3030 
3047 
F8D2 
304S 
F8D1 
F8D1 
FDEC 
F8D1 
FEAF 
FEC3 



OPT Z01 
NAM USER 10 
***** USER PROGRAM TO TEST MONITOR 10 INDEPENDENCE 

* CHANGE RESTART VECTOR TO POINT HERE 

* SUBSTITUTE ACIA 10 FOR MONOTOR'S SERIAL 10 

* EQUATES INTO MONITOR 

A IOPTR EQU S0FC RAM LOC-PNTR TO 10 TABL 

A MYNTRY EQU »F906 ENTRY TO I NIT REST OF MONITOR 

A OUTSl-l EQU *0F6 ECHO/TAPE FLAG, TAPE IF #0 

A CHRNL EQU S0D5 # NULLS FOR PADDING 

* USER 10 CODE TO INITIALIZE 10 TABLE 



ORG 


S3000 


LDX 


♦IOTAB 


STX 


IOPTR 


LDX 


•CMDTAB 


J MP 


MYNTRY 



GET USER 10 TABLE 
DEFINE 10 TABLE FOR ACIA 
REDEFINE HI & HY 
JUMP TO MONITOR 



X DISPLAY COMMAND CD) USES HS ROUTINES 

* MONITOR'S HS (HIGH SPEED PRINT) WRITES TO 
*: CONSOLE, CALLING OUTCH 

* TAPE COMMANDS USE BS (BULK STORE) ROUTINES 

* BS ROUTINES CALL INCH AND OUTCH TO READ 

* AND WRITE TO TAPE 

* INCH AND OUTCH CALL THE READ AND WRITE 
*■ ROUTINES DEFINED HERE 

* MONITOR ROUTINES USED IN 10 TABLE 

* THE FOLLOWING ADDRESSES WILL CHANGE IF 
MONITOR IS REVISED 



* TH! 

A COON EQU «F8D2 TURN ON CONSOLE OUTPUT 

A COOFF EQU fF8Dl 

A HSON EQU SF8D1 TURN ON HI SPEED DEVICE 

A HSDTA EQU SFDEC OUTPUT TO HI SPEED DEVICE 

A HSOFF EQU *F8D1 TURN OFF HI SPEED DEVICE 

A.BSON EQU SFEAF TURN ON BULK STR DEVICE 

A BSDTA EQU «FEC3 BULK STORE 10 

A BSOFF EQU *FEBA TURN OFF BULK STR DEVICE 

* ACIA EQUATES 

A AC I AS EQU *9CF4 STATUS WRD 
A AC I AD EQU ACIAS+1 DATA WRD. 

****************** ******* ¥*****.***X^X*** 

* 10 TABLE 

* ADDRESS OF THIS TABLE' MUST BE STORED IN IOPTR 
A IOTfiB FDB AON, READ, AOFF 

A 
A 
A FDB COON, PR I NT, COOFF 



A FDB HSON, HSDTA, HSOFF HI SPEED PR ROUTINES 

A 

A 

A FDB BSON, BSDTA, BSOFF TAPE ROUTINES 



00053 
00054 
00055 



* USER 10 ROUTINES 

* I NIT, TURN ON CONSOLE INPUT 



00056 










* 


I N I T 


IALI2E ACIA 






O0057A 


3023 


CC 


0311 


A 


AON 


LDD #*0311 


INIT ACIA 




00058A 


3026 


B7 


3CF4 


A 






STAA ACIAS 


MASTER RESET 




00059A 


3029 


F7 


9CF4 


A 






STAB ACIAS 


LEN=S, NO PARITY 




00060A 


302C 


86 


10 


A 






LDAA #*10 


SET PADDING FOR 300 


BAUD 


00061 A 


302E 


20 


45 3075 






BRA HI2 






00063 










* 


READ 


1 CHAR W/NO WAT 






00064 










* 


MONITOR INCH ROUTINE 


CHECKS C BIT IN* CCR 




00065 










* 


IF CLEAR - INCH LOOPS WAITING FOR INPUT 




00066 










* 


MON I 


TOR 'CHKABT' ROU" 


FINE NEEDS READ W/NO 


WAIT 


00067 










* 




TO CHECK FOR 'COt 


•JTROL X' 




00068A 


3030 


B6 


9CF4 


A 


READ 


LDAA ACIAS 






00069A 


3033 


47 










ASRA 


READ BIT SET? 




0007OA 


3034 


24 


04 303A 






BCC READ2 






00O71A 


3036 


B6 


9CF5 


A 






LDAA ACIAD 


READ DATA 




00072 










* 


SET 


CARRY TO INDICATE DATA READ 




00073A 


3039 


0D 










SEC 






00074A 


30 3 A 


39 






READ2 


RTS 







00076 
00077 



* WRITE 1 CHAR - NO PADDING, 

* CALLED BY PRINT 



00378 A 


303B 


37 






WRITE 


PSHB 






00073A 


303C 


FS 


9CF4 A 


WRITE2 


LDAB 


ACIAS 




00080A 


303F 


57 








ASRB 




WRITE BIT SET? 


000S1A 


3040 


57 








ASRB 






00082A 


3041 


24 


FS 


303C 




BCC 


WRITE2 




0O083A 


3043 


B7 


9CF5 A 




STAA 


ACIAD 


WRITE DATA 


00084A 


3046 


33 








PULB 






00085 






3047 A 


AOFF 


EQU 


* 




O00S6A 


3047 


39 








RTS 






00088 










* MONITOR OUTCH ROUTINE CALLS PRINT 


00083 










* ADD 


ROUTINE 


TO DO PADDING-ASSUME 1 20CPS 


00090A 


3048 


8D 


Fl 


303B 


PRINT 


BSR 


WRITE 




00091 A 


304A 


D6 


F6 


A 




LDAB 


OUTSW 


NULLS FOR TAPE CR 


0O092A 


30 4-C 


26 


02 


3050 




BNE 


PI 


JMP IF TAPE 


00033A 


30 4 E 


D6 


D5 


A 




LDAB 


CHRNL 


* NULLS FOR CR 


00094A 


3050 


81 


0D 


A 


PI 


CMPA 


#«D 


CR? 


00095A 


3052 


27 


08 


305C 




BEQ 


P2 


JMP IF CR 


00036A 


3054 


81 


10 


A 




CMPA 


#tl0 


DO NOT PAD IF DEL 


000S7A 


3056 


27 


E2 


303A 




BEQ 


READ2 




00098A 


3058 


C4 


03 


A 




ANDB 


#*3 


MASK OUT HI 6 BITS 


00099A 


30 5 A 


20 


02 


305E 




BRA 


P4 




001 00 A 


305C 


54 






P2 


LSRB 




REMOVE LOW 2-BIT CNT 


00101A 


305D 


54 








XSRB 






00102 










* NO PADDING 


PER CHAR 


NEEDED FOR LOWER SPEE] 


001 03A 


30 5 E 


5A 






F4 


DECS 






00104A 


305F 


2B 


D9 


303A 




BMI 


READ2 


ENOUGH NULLS? 


001O5A 


3061 


36 








PSHA 






00106A 


3062 


4F 








CLRA 




SET A=NULL 


00107A 


3063 


8D 


D£ 


303B 




BSR 


WRITE 




001 08A 


3065 


32 








PULA 







4^ 
O 



PAGE 003 USERIO 
00109A 3066 20 F6 305E 



001 1 1 








001 12 








001 13 








00114A 


3068 




05 A 


00115A 


3069 




48 A 


A 


306A 




43 A 


001 ISA 


30GB 




3073 A 


001 17A 


306D 




05 A 


001 ISA 


306E 




48 A 


A 


306F 




59 A 


001 13A 


3070 




3078 A 


00120A 


3072 




FF A 


00122 








00123 








001 24 








001 26 








00127 








00128 








001 23 A 


3073 


86 


4F A 


001 30 A 


3075 


97 


D5 A 


00131 A 


3077 


39 




00 133 








00134 








00135 








001 36A 


3078 


4F 




00137A 


3079 


20 


FA 3075 


00138 









BRA 



P4 



*************** USER DEF 

* REDEFINE HI AND HY CMD 

* THE FOLLOWING TABLE IS 
CMDTAB FCB 5 # 



FCC 

FDB 
FCB 
FCC 

FDB 

FCB 



/HI/ 

HI 

5 

/HY/ 

HY 

-1 



FOR ACIA 

USED BY THE MONITOR 
# BYTES IN ENTRY 
CMD NAME ( 2 BYTES ) 



ADDRESS ( 2 BYTES ) 
#BYTES IN ENTRY 
CMD NAME 

ADDRESS 

END OF TABLE 



* HI & HY SET CHRNL FOR PADDING 

* LOW 2 BITS = * NULLS AFTER CHAR 

* HI 6 BITS = # NULLS AFTER CR 

* SET SPEED FOR 120 CPS 

* SET * NULLS TO PAD CHAR/CR 
HI LDAA #f4F 

HI2 STAA CHRNL 
RTS 

*************** HY *************** 

* HIGHER YET - 9600 BAUD FOR CRT 

* SET PADDING TO ZERO 
HY CLRA 

BRA HI2 
END 



TOTAL ERRORS 



PAGE 001 

00001 
00002 

00004 
00005 
00006 
00007 
00008 
00009 

00010 

0001 1 
00012 

00014 
00015 
00016 
00017 

00018 

00020 
00021 
00022 
00023 



00025A 0080 

00026A 0080 SE 00C0 

00027A 0083 96 08 

00023A 0085 SA 04 

00O23A 0087 97 08 

0003OA 0089 CE 009F 

0003 1 A 003C DF FE 

00032A 003E 0E 

00033A 00SF 20 FE 008F 



NAM 
OPT 



OVFLOW 

Z01 ,LLEN=80 



***** EXAMPLE OF TIMER OVERFLOW INTERRUPT ***** 

* REDEFINE VECTOR TABLE USED BY LILBUG 

* THIS VECTOR TABLE IS USED IF THE MC6801 MODE 

* SELECTED HAS INTERNAL I NTERRUPT VECTORS . 

* DEFINE OVERFLOW INTERRUPT, SW I , AND NM I . 

* THE OTHER INTERRUPTS ARE SAME AS NM I . 

* SET LILBUG VECPTR TO POINT TO VECTOR TABLE 

* ENABLE TIMER OVERFLOW AND INTERRUPT MASK 

* PRINT MESSAGE WITH EACH OVERFLOW INTERRUPT 

* EQUATES INTO MONITOR 

F903 A MAIN EQU *F903 MONITOR ENTRY 

F80F A PDATA EQU #F80F PR DATA STRING 

0008 A TCSR EQU *08 CLOCK CONTROL REG 

0OFE A VECPTR EQU fOFE PNTR TO VECTOR TABLE 



* MONITOR COMES UP 

* THIS PROGRAM IS LOADED 

* AFTER EACH RESTART, EXECUTE STARTING AT 

* TO SET OVERFLOW INTERRUPT VECTOR 



SET STACK POINTER 
SET ETOI 





ORG 


»30 


A BEGIN 


LDS 


#*C0 


A 


LDAA 


TCSR 


A 


ORAA 


#»04 


A 


STAA 


TCSR 


A 


LDX 


STABLE 


A 


STX 
CLI 


VECPTR 


■ F 


BRA 


* 



SET VECTOR TABLE PNTR 



ALLOW INTERRUPT 
WAIT FOR INTERRUPT 



ACIAD 9CF5 

BSON FEAF 

HI2 3075 

IOTAB 3O0B 

PRINT 3048 



ACIAS 9CF4 
CHRNL 00D5 
HSDTA FDEC 
MYNTRY F906 
READ 3030 



AOFF 


3047 


AON 


3023 


BSDTA 


FEC3 


BSOFF 


FEBA 


CMDTAB 


3068 


COOFF 


F8D1 


COON 


F8D2 


HI 


3073 


HSOFF 


F8D1 


HSON 


F8D1 


HY 


3078 


IOPTR 


0OFC 


OUTSW 


O0F6 


PI 


305O 


P2 


305C 


P4 


305E 


READ2 


303 A 


WRITE 


303B 


NRITE2 


303C 







00035 
00036 
00037 



***** INTERRUPT ROUTINE ***** 

* WHEN TIMER GOES FROM *FF TO 0, AN INTERRUPT 

* OCCURS AND VECTORS TO 'OVFLOW' TO PRINT MSG 



00038A 


0091 


0F 






OVFLOW 


SEI 




PREVENT INTERRUPT UNTIL END MSG 


00039A 


0092 


CE 


009A 


A 




LDX 


#MSG 


GET ADR 


00040A 


0095 


BD 


F80F 


A 




JSR 


PDATA 


GO PRINT 


00041 A 


0098 


0E 








CLI 




ALLOW INTERRUPT 


00042A 


0099 


3B 








RTI 




RETURN 


00044A 


003A 




4F 


A 


MSG 


FCC 


/OVER/ 




00O45A 


009E 




04 


A 




FCB 


4 




00047 










****** 


VECTOR 


TABLE 




00048 










* DEFINE OVERFLOW INTERRUPT, SWI AND NMI 


0004 9 










* VECPTR (ADDRESS S0FE ) MUST POINT TO THIS TABLE 


00O50 A 


O09F 




00AB 


A 


TABLE 


FDB 


NMI 


TAKE NMI IF VECTOR HERE 


00051 A 


00A1 




0091 


A 




FDB 


OVFLOW 


TIMER OVERFLOW 


00052A 


00 A 3 




00AB 


A 




FDB 


NMI 




O 5 3 A 


00 A 5 




00AB 


A 




FDB 


NMI 




00054 Oh 


00 A 7 




00AB 


A 




FD!? 


NMI 




00055A 


t?> o 3 




F821 


A 




FDB 


SFS21 


SWI ENTRY - LILBUG BRKPNT 


00056A 


00 AB 




FS03 


* 


NMI 


FDB 


SF803 


NMI - LILBUG TRACE 


0005-?. 






0030 


A 




END 


BEGIN 





PAGE 001 



PAGE 002 



00002 

00004 
00005 
00006 

00007 

00008 

0001 
0001 1 

00012 
00013 
00014 

00015 
00016 
00017 

00019 

00020 
00021 

00022 
00023 
00024 



00026 
00027 
00028 
00029 

00031 
00032 
00033 

00035 
00036 



NAM 
OPT 



USRCMD 
201 



00057A G50A 7E F90D 



F90D 
F85B 



00FA 

00FC 



F806 
F809 
F80C 
F815 



00033 

00041A 0080 

00042 

00043A 0080 0002 

00@44A 0082 0001 

00046A 6500 

00047 

00048 

00049 

00050 

00051A 6500 CE 650D 

00052A 6503 DF FA 

00053A 6505 CE F85B 

00054A 6508 DF FC 

00055 

00056 



***** EXAMPLE OF USER DEFINED COMMAND 

* EXTERNAL VECTORS SHOULD BE USED 

* RESET VECTOR NEEDS TO BE SET TO COME HERE 

* SO THAT RESTART WILL RESET USER CMD TABLE 
*. ADDRESS OF LABEL 'START' IS THE RESET VECTOR 

* FCTPTR POINTS TO COMMAND TABLE 

* COMMAND TABLE ENTRY CONSISTS OF: 

* 1. NUMBER BYTES IN ENTRY 

* 2. ASCII CHARACTERS FORMING COMMAND NAME 

* 3. ADDRESS OF .COMMAND ROUTINE 

* TABLE 13 TERMINATED BY: 

* -1 INDICATING MONITOR TABLE IS ALSO TO BE SEARCHED 

* OR -2 INDICATING MONITOR COMMANDS ARE NOT USED 

* NOTE: COMMAND LENGTH IS VARIABLE. 

* DECIMAL NUMBERS ARE NOT VALID IN COMMAND NAME. 

* . AND / ARE SPECIAL QUICK COMMANDS-CANNOT 

* BE REDEFINED. 

* A COMMAND IS TERMINATED BY SPACE, COMMA, 

* CR, OR LF. 



* ENTRY INTO MONITOR 
A ENTRY EQU *F90D 

* 10 TABLE 

A CI EQU «F85B 



ENTRY TO RESET INITIALIZATION 
USE SAME 10 AS MONITOR 



* MONITOR RAM LOCATION 

A FCTPTR EQU SOFA PNTR TO COMMAND TABLE 

A IOPTR EQU S0FC PNTR TO TABLE OF 10 ADDRESSES 

* MONITOR ROUTINES USED 

A INCH EQU tF806 INPUT 1 CHAR INTO REG A 

A OUTCH EQU *F809 OUTPUT 1 CHAR FROM REG A 

A PDATA1 EQU *F80C PR DATA STRG (ADR IN REG X) 

A 0UT4HS EQU SFS15 PRINT 4 HEX CHAR & SPACE 



ORG «80 
* RAM FOR USER COMMANDS 
A NUMBER RMB 2 
A TEMP RMB 1 



HEX NUMBER 
TEMPORARY STORAGE 



ORG #6500 

* USE EXPANDED MODE W/MEMORY AT *65O0 

* SET THE COMMAND TABLE PNTR 

* JUMP TO MONITOR TO CONTINUE INITIALIZATION 

* BE SURE MONITOR DOES NOT RESET FCTPTR 
A START LDX #TABLE GET ADR 

A STX FCTPTR 

A LDX *CI ALSO SET 10 PNTR 

A STX IOPTR NORMALLY DONE BY MONITOR 

* VECTOR TABLE NOT NEEDED IF USING EXTERNAL VECTORS 

* SO DO NOT NEED TO SET VECPTR 



00059 

00060 

00061A 

00062A 

00063A 

00064 

00065A 

00066A 

00067 A 

0006SA 

00070 

00071 

00072A 
00073A 
00074A 
00075A 
00 076 A 
00077A 
0007SA 
00073A 
000 SO A 
00081 A 



***** USER COMMAND TABLE 
* THIS C COMMAND REPLACES 



650D 
650E 
650F 

6511 
6512 
651B 
651D 



651E 
6521 
6523 
6525 
6528 
652A 
652C 
652E 
6530 
6532 



04 
43 
651E 

0C 
43 

651 E 
FF 



2B 
81 



2F 03 6537 



C083 

00084 

000S5A 6534 86 FF 

00086A 6536 39 



000 

O 

000 
000 
000 
000 
000 

000 
000 
000 
000 
001 
001 
001 
001 



8SA 
5A 
0A 
51A 
32 A 
93 A 
34A 
35A 
56 A 
57A 
9SA 
99A 
00A 

01 A 

02 A 



6537 84 OF 

6539 97 82 
653B EC 00 
653D 04 
653E 37 
653F 36 

6540 04 

6541 04 

6542 ED 00 

6544 32 

6545 33 

6546 E3 00 
6548 DB 82 
654A 63 
654C ED 
S54E 20 



00 
00 
D5 65; 



001 05 

(? o •: ? g 

0: 07 A 6550 
0O-1C2.A 6553 



CE 0080 
BD F815 



THE MONITOR'S C CMD 



TABLE FCB 
FCC 
FDB 

* BEGINNING 
FCB 
FCC 
FDB 
FCB 



4 * BYTES IN ENTRY 

/C/ COMMAND NAME - CONVERT DEC 
CONV ADR OF PROCESSING ROUTINE 
OF 2ND ENTRY 

12 * BYTES 

./CNVRTSDEC/ANOTHER NAME FOR C CMD 
CONV ADR 
-1 TERMINATOR - MONITOR COMMA 



**************************************** 
***** USER COMMAND-CONVERT DECIMAL TO HEX 



CE 0080 A 
6F 00 A 
6F 01 A 
BD F806 A 
81 3D A 
27 24 6550 
81 30 A 
04 6534 
39 A 



LDX 


♦NUMBER 




CLR 


0,X 


INIT 


CLR 


1 ,X 




JSR 


INCH 


READ A CHAR 


CM FA 


*' = 


= TERMINATES NUMBER 


BEQ 


PRINT 


GO PRINT HEX NUMBER 


CMPA 


*' 


DECIMAL CHECK 


BMI 


ERROR 


NOT DEC 


CMPA 


*'9 




BLE 


C0NV2 


GOOD DEC 


: - SET 


NEG CONDITION CODE, RETURN 



A ERROR 



MONITOR WILL PRINT 
LDAA #$FF 
RTS 



C0NV2 



AND A 

STAA 

LDD 

ASLD 

PSHB 

PSHA 

ASLD 

ASLD 

STD 

PULA 

PULB 

ADDD 

ADDB 

ADCA 

STD 

BRA 



#SF 
TEMP 



0,X 

TEMP 
*0 
, X 

CON VI 



CONVERT ASCI I TO DEC 

GET PREVIOUS NUMBERS 
DOUBLE LEFT SHIFT 
SAVE DIV BY 2 



SAVE DIV BY 8 



CONVERSION 

ADD IN LATEST NUM 



GET NXT NUM 



* PRINT 4 HEX ^U-icERS Sc SPkCE 

* REG X POINT TO FIRST BYTE TO FR 
^RINT LDX -NUMBER 

JSR 0U74-:S 

CLPA CLP CCR - PREVENT EFR RETU 



**:*;*:*:*;*;-? 



* * * * **;*-:***: * **.* ■»: 



* SET EXTERNAL VECTORS 



FAC 


>E C 


*03 U 


SRCMD 




001 


. 14. 








cei 


.15 








001 


. 1 £ 








001 


. 17A 


^FFA 






eo: 


. •: 2- ft 


F^FA 


FD53 


A 


eo-: 


. :?a 


F^FC 


F803 


A 


c c : 


20A 


FFFE 


£500 


A 


oo: 


. 2 1 




6500 


A 



SET SWI AND NMI FOR TRACE, BRKPNT 

USE ON-CHIP RESOURCES 

SET RESTART TO COME HERE TO SET TABLE PNTR 



ORG 


f-FFFA 




FDB 


~FD53 


SWI VECTOR 


FDB 


SF803 


NMI VECTOR 


FDB 


START 




END 


START 





FOTAL ERRORS 00000 



FS5B CI 
651E CONV 
£525 CCNV1 



b53,' 
FBOD 



CCNV2 
ENTRY' 






£534 ERROR 

■:-: ,,r A "ctptr 

-ios :-cw 

O^FC IOFTR 

~-i 1 5 ?L'T4-'S 

p- .r- n. ~ •=• 2' - T A ' 

£550 PRINT 

£500 START 

Sz'VD TABLE 

O0S2 TEMP 



00029*00053 

00063 00067 00072* 

00075*00103 

00081 O00SSX 

00027X00057 

00075 00085* 

00032s- 0052 

00036*1-0075 

00033*00054 
O£0£3*OOO72 00107 
0002S*:e0v 02. 
00037s 
00038* 

00077 00107* 
00051^00-120 00121 
00051 00061* 
00044*00089 00100 



PAGE 1 


B01 


USEPTM 












00001 










OPT 


201 




00002 










NAM 


USEPTM 




00003 








X 


USE PTM INSTEAD OF ON-CHIP COUNTER 


00004 








X 


FOR HARDWARE TRACE 


©0005 








X 


THE MONITOR 


WILL INITIALIZE AND USE 


OO006 








X 


RESOURCES FOR TRACE 


ACCORDING TO THE 


00007 








X 


ADDRESS IN 


THE NMI VECTOR 


00008 








X 


*F800 - 


PTM ADDRESS 


00003 








X 


*F803 - 


ADDRESS 


FOR ON-CHIP CLK/CNTR 


00010 








£ 


IF EXTERNAL 


VECTORS 


ARE USED, THE MONITOR 


00011 








X 


GETS THE NMI VECTOR DIRECTLY. 


00012 








* 


IF INTERNAL 


VECTORS 


ARE USED, THE NMI 


00013 








X 


VECTOR 


IS RETRIEVED INDIRECTLY FROM 


00014 








* 


THE TABLE POINTED TO BY 'VECPTR'. 


00016 








X 


MONITOR EQUATES 




00017 




F821 


A 


SWI EQU 


SFS21 


SWI ENTRY 


0001 S 




F90D 


A 


MONITR EQU 


*F90D 


INIT MONITOR 


00019 




F800 


A 


EXNMI EQU 


SFS00 


MONITOR ENTRY FOR PTM NMI 


00020 




CF00 


A 


FTMADR EQU 


ff-CFOO 


ADR FOR PTM 


00021 




F85B 


A 


CI 


EOU 


SFS5B 


10 TABLE 


00022 




FS24 


A 


FCTABL EQU 


*FS24 




00024 








X 


RAM USED BY 


MONITOR 




000 25 A 


00FS 








ORG 


»OFS 




00026A 


0OF8 


0002 


A 


PTM RMB 


2 


PNTR TO PTM ADR 


00027A 


00FA 


0002 


A 


FCTPTR RMB 


2. 


PNTR TO CMD TABLE 


00028A 


00FC 


0002 


A 


IOPTR RMB 


2 


PNTR TO 10 TABL 



00030 
00031 
00032 
00033 
©0034 



00035A 


0080 










ORG 


€80 


00O36A 


0080 


CE 


CF00 


A 


START 


LDX 


♦FTMADR 


00O37A 


©083 


DF 


F8 


A 




STX 


PTM 


O0038A 


0085 


CE 


F85B 


A 




LDX 


♦ CI 


00039 A 


0088 


DF 


FC 


A 




STX 


I0PTR 


0OO40A 


©OS A 


CE 


F824 


A 




LDX 


♦FCTABL 


00041 A 


008 D 


DF 


FA 


A 




STX 


FCTPTR 


0004 2 A 


008F 


7E 


.F50D 


A 




JMP 


MONITR 


e>0044 










xxxxx 


XX-KXXX 


x*-**r****&X: 


000-5 










£ EXT 


ERNAL 


INTERRUPT ! 


©C046A 


r FFA 










ORG 


r-FFA 


OOO^TA 


F^FA 




F821 


A 




FDB 


SU I 


ooo^sa' 


FFFC 




F800 


A 




FDB 


EXSfMI 


000 £9 A 


FFFE 




0080 


A 




F E V B 


START 


00050 






©080 


A 




END. 


S~ART 



£XXXXXXXXXXXX*XXXX*XXXXXXXXXXXXXXXXXXXXXX 

X INITIALIZE TABLES USED BY MONITOR 

X THEN JUMP TO MONITOR 

X SUCH THAT MONITOR DOES NOT 

X RESET PTM ADDRESS 



RESET PTM ADR 

CHANGE MONITOR DEFAULT 

SET 10 TABLE 



SET COMMAND TABL 



VECTORS 



BRKPNT ENTRY INTO MONITOR 
NMI ENTRY FOR PTM 
INIT FROM USER PROG 



TOTAL ERRORS 00000 



CI FS5B EXNMI 
MONITR FSOD PTM 



FS00 FCTABL F824 
OOFS PTMADR CFOO 



FCTPTR O0FA 
START 00 SO 



IOPTR OOFC 
SWI FS21 



The following programs test various features of the M6801: 



Program Description 

MODE 4 Test the single chip mode 4 in low speed — 300 baud. Serial I/O rutine is defined. Interrupt by IS3 is enabled. 

Port 1 is tied to Port 3. Write Port 1 causes IS3 and IRQ. The interrupt routine writes one character of a 

message. The interrupt vectors use $F0-$FF. 
PORTS Cycle through Ports 1, 3, and 4. Read port and print hexadecimal value. Use LILbug print routine. 
TIMER Test on-chip timer. Generate square wave and watch on scope. This can be run in single chip mode. 
TOGGLE Cycle through all ports, writing to each and watching on scope. This does not use LILbug. The test can be run 

in single chip mode. LILbug is not used. 
TSTIO TSTIO is a basic on-chip serial I/O test that reads the keyboard and echoes to terminal. It sets NRZand baud 

rate of 300. 
TSTPTM This program tests the PTM which can be used as alternative hardware for LILbug monitor trace. It sets 

latches to zero and brings the PTM out of RESET. Then latches are set and the program loops waiting for NMI 

interrupt. NMI is tied to the inverted output of Timer 1 . The NMI routine outputs a counter indicating when the 

NMI occurred. LILbug I/O routines are used. 



43 



PAGE 001 



M0DE4 



PAGE 002 






00001 
00002 
00003 

00005 
00006 
00007 
00008 
00005 
00010 

00012 
00013 

00015 
00016 
00017 
00018 

00020 
00021 
00022 
00023 
00024 
00025 
00026 



00028 

00029A 

00030 

00031 

00032 

00033 

00034A 

00035A 

0003GA 

00037 

0003SA 

00039A 

00040A 

00041A 

00042A 

00043A 

O0044A 

00045A 

00046 

00047A 

00 04 8 A 

0.0Q4SA 

00050A 

00051 A 

000 52 A 

00C-53A 

C0054A 

00055 



0080 



0083 
0086 

0088 
008B 
008D 
008F 

0091 

0053 
0095 
0058 

0099 
005B 
005E 
00 9 F 
00 A 1 
00 A 4 
00A6 
A 5 



CC 4000 
97 0F 
D7 04 
86 FF 
97 02 
97 00 
7F 00E1 
0E 



X TEST FOR MODE 4 

NAM M0DE4 
OPT 201 

X SINGLE CHIP TEST MODE 

* WITH INTERNAL ROM MONITOR DISABLED 

X CAN CHANGE TO MODE 5 IN SOFTWARE 
x BY WRITING 1 INTO PC0 BIT OF 10 PORT 2. 
X DEFINE RESET VECTOR 
A RESET EOU f-FFFE USED TO GO TO MONITOR 

X DEFINE PORT 2 
A P0RT2 EQU 503 



PORT 3 

DATA DIRECTION 

CONTROL REG 



00058 



X OUTPUT CHAR - NO PADDING 



0006 


A 


PORTS EQU S06 


0004 


A 


DDR3 EQU S--04 


000F 


A 


CR3 EQU S0F 
X DEFINE PORT \ 


0002 


A 


P0RT1 EQU S02 


0000 


A 


DDR1 EQU S00 
X SERIAL 10 EQUATE! 


0010 


A 


RMCR EQU S010 


0011 


A 


TRCS EQU SC11 


0013 


A 


TX EQU $013 



RATE & MODE CONTROL 
TRANS/RECEIV CNTRL/STAT 
TRANS REG 



XXXXXXXXXXXXX**XXX*XXXXXXXXXXXX 

org sac 

X SET IS3 TO CAUSE IRQ 

X P0RT1 IS TIED TO P0RT3 

X WRITE TO P0RT1 TO CAUSE INPUT 



INTERRUPT W/P0RT3 



8E 00F7 A 
CC 0702 A 
DD 10 A 



86 0A A 

7F 0002 A 
4A 

26 FA 009B 

B6 00E2 A 

97 03 A 

FE FFFE A 

6E 00 A 



X SET SPEED = 

START LDS 
LDD 
STD 

X IN IT PORT 3 
LDD 
STAA 
STAB 
LDAA 
STAA - 
STAA 
CLR 
CLI 
LOOP 
LDAA 
CLR 
DECA 
BNE 
LDAA 
STAA 
LDX 
J MP 

xxsekxxxxxxxx; 



X MAIN 

LOOP 

L00P2 



30 CPS, 
#STACK 
*S07e2 
RNCR 

*$4000 

CR3 

DDR3 

**FF 

F0RT1 

DDR1 

OFFSET 



#10 
P0RT1 



LC0P2 
MCDC-IG 



INIT 10 



SET BAUD RATE BITS, SET TE 



ENABLE INTERRUPT 
SET FOR INPUT 



SET FOR OUTPUT 



ALLOW IRQ 



SET LOOP CNTR 
GO THRU LOOP 10 



TRY TO CHANGE MODES 



RESE" GET RESTART VECTOR 
0,X GO TO MONITOR 
♦*i***XX*X£XXXXXXXX 



00059A 00AB 37 OUTCH PSHB 

O006OA OOAC D6 11 A 0UTCW2 LDAB TRCS 

00061A 00AE C5 20 A BITS #520 

00062A 00B0 27 FA 00AC BEQ 0UTCH2 

00063A 00B2 97 13 A STAA TX 

00064A 00B4 33 P'ULB. 

00065A 00B5 39 RTS 



GET CNTRL WRD 
TDRE SET? 
WAIT UNTIL IT IS 
WRITE WRD 



00067 










X IRQ 








00068 










X PRINT 1 CHAR OF MESSAGE W/EACH INTERRUPT 


00069A 


00B6 


96 


0F 


A 


IRQ 


LDAA 


CR3 


CLEAR INTERRUPT 


00070A 


00B8 


96 


06 


A 




LDAA 


P0RT3 




00071A 


00BA 


86 


FF 


A 




LDAA 


#*FF 




00072A 


00BC 


97 


02 


A 




STAA 


P0RT1 




00073A 


00BE 


F6 


00E1 


A 




LDAB 


OFFSET 


GET MSG OFFSET 


00074A 


00C1 


CE 


00D4 


A 




LDX 


#MSG 




00075A 


00C4 


3A 








ABX 




GET NEXT CHAR OF MSG 


00076A 


00C5 


A6 


00 


A 




LDAA 


, X 


GET CHAR 


00077A 


00C7 


8D 


E2 00AE 




ESR 


OUTCH 


PRINT 


0007SA 


00C9 


5C 








INCB 






00075A 


00CA 


8C 


00E1 


A 




CPX 


#ENDr.SG 


END OF MSG? 


00080A 


00CD 


26 


01 00D0 




BNE 


IRQ2 




000S1A 


00CF 


5F 








CLRB 






000S2A 


00D0 


F7 


00E1 


A 


IRQ2 


STAB 


OFFSET 




00083A 


00D3 


3B 








RTI 






00085A 


00D4 




53 


A 


MSG 


FCC 


/SUMMER 


WINE/ 


00086A 


00DF 




0D 


A 




FCB 


SD,*ft 




00087 






00E1 


A 


ENDMSG 


EQU 


¥. 




00088A 


00E1 




0001 


A 


OFFSET 


RMB 


1 




O0085A 


00E2 




E0 


A 


MODCHG 


FCB 


JPE0 


TRY MODE CHANGE 


00091 










X INTERRUPT 


VECTORS 




000S2A 


00F3 










ORG 


£FS 




00093 






00F7 


A 


STACK 


EQU 


X-l 


BETTER NOT USE ANY 


00034A 


00FS 




00B6 


A 




FDB 


IRQ 




00095A 


00FA 




0004 


A 




RMB 


4 


SWI,NMI 


00056A 


00FE 




0080 


A 




FDB 


START 




00097 












END 







TOTAL ERRORS 00000 



CR3 O00F 

IRQ2 00D0 

OFFSET 00E1 

PORTS 0006 

TRCS 0011 



DDR1 


0000 


DDR3 


0004 


ENDMSG 


00E1 


IRQ 


00B6 


LOOP 


0095 


L00P2 


005B 


MODCHG 


00E2 


msg 


00D4 


OUTCH 


00 A B 


0UTCH2 


00AC 


PCRT1 


000E 


P0RT2 


0003 


RESET 


FFFE 


RMCR 


0010 


STACK 


00F7 


START 


0080 


TX 


0013 















00057 



X WRITE IRQ -MESSAGE WITH SERIAL TRANSMITTER 



PAGE 001 



PAGE 001 



TIMER 






00001 
00002 
00003 
00004 

00009 
00007 
00008 
00009 
00010 

00011 

00013 
00014 
00015 

00017A 0080 



NAM PORTS 

OPT Z01 
X CYCLE AROUND PORTS AND READ & PRINT 
X DO NOT CHANGE PORT 2 - USED FOR SERIAL 



10 



X PORT EQUATES 



0000 


A 


DDR1 


EQU 


500 


0004 


A 


DDR3 


EQU 


S04 


0002 


A 


PI 


EQU 


$02 


0006 


A 


F3 


EQU 


$06 


0007 


A 


P4 


EQU 


*07 



* MONITOR EQUATE 
F812 A 0UT2HS EQU SF812 
F81S A PCRLF EQU SF&18 



DATA DIRECTION 

P0RT1 DATA 
PORTS DATA 
P0RT4 DATA 



PR 2 HEX fc SP 
CR/LF 



ORG 



«80 



00019 










* INIT 


PORT 


1,3,4 




e 0020 A 


0060 


CC 


0000 


A 


INIT 


LDD 


*0 


SET FOR INPUT 


00O21A 


0083 


97 


00 


A 




STAA 


DDR1 




00O22A 


0085 


DD 


04 


A 




STD 


DDR3 




00024 










* MAIN 


LOOP 






OO025A 


00S7 


CE 


0002 


A 


LOOP 


LDX 


*P1 


GET PORT 1 ADR 


00026A 


008A 


BD 


F812 


A 




JSR 


0UT2HS 


GO PR 


00027A 


00SD 


CE 


0006 


A 




LDX 


*F3 


GET PORT 3 ADR 


00028A 


0090 


BD 


F812 


A 




JSR 


0U72HS 


GO PR 


0O023A 


0033 


08 








INX 




SET TO PORT 4 ADR 


00030 A 


0034 


BD 


FS12 


A 




JSR 


0UT2'r!S 




O0O31 A 


0O37 


BD 


FS18 


A 




JSR 


PCRL r 




00032 A 


0OSA 


20 


EB 0087 




BRA 


LOOP 





00034 0080 

TOTAL ERRORS 00000 



END 



0000 DDR1 
0004 DDR3 



O0S0 
0087 



INIT 
LOOP 



00007X00021 
00008*00022 
00020*00034 
00025*00032 



F812 0UT2HS 00014*00026 00028 00030 



0002 PI 

0006 P3 

0007 P4 
FSl'S PCRLF 



00003*00025 
00010*00027 
0001 1* 

00015*00031 



00OO1 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 

00011 
00012 



0001 
0009 
0008 



NAM TIMER 
OPT 201 
X GENERATE WAVE COMPARABLE TO WHAT IS NEEDED 

* FOR LINE TIED TO NMI FOR LILBUG TRACE 

* WATCH ON SCOPE 
P2DDR EQU SOI 
CLOCK EQU S09 

TCSR EQU *0S TIMER CONTROL STATUS REG 



OO0B A OCREG EQU 



SOB 



OUTFUT COMPARE REG 



F815 



* LILBUG EQUATE 
A 0UT4HS EQU SFS15 



000 

000 

000 
000 

000 

000 

00O; 
ooo; 
ooo; 
O00; 
ooo; 
OOO; 



14A 

15 
16A 
17A 
18 
ISA 
20A 
1A 
22A 
23A 
24A 
25A 



0080 86 02 
0082 97 01 



0084 D6 OS 
0066 C4 FE 



A 
A 

00S8 D7 OS A 
008A SD 07 0093 
O0SC 7C 0008 A 
OOSF SD 02 0093 
0091 20 Fl 0084 



* SET 
FULSE 



00027 

00028 

00029 

00030 

00031 

O0032A 

0O033A 

O0O34A 

00035A 

00036 

0O 03 7 A 

0003SA 

00039?: 



0093 
0095 
0097 
0098 

0O9A 
O09D 
009F 

00AO 

00A1 
00 A3 
C0A6 
r -0ft9 
'/!>AC 



C6 

DE 
3A 
DF 

CE 
D6 

58 



09 
OB 



0000 
08 



.FA 009 

0OAD 
00 AD 
F815 



0OO47A OOAD 0002 

OOO^S 

TOTAL ERRORS OOOOO 



ORG $80 
■ DDR FOR P0RT2 

LDAA *2 

STAA P2DDR SET BIT 1 FOR OUTPUT 
FOR OUTPUT COMPARE PULSE, SET LEVEL 

LDAB TCSR GET CONTROL/STAT REG 

ANDB *£FE CLEAR OLVL BIT 

STAB TCSR RESET 

BSR SETCLK SET CMPR REG, WAIT FOR 

INC TCSR MAKE LEVEL HI 

BSR SETCLK ALLOW LEVEL TO GO HIGH 

BRA PULSE DO IT AGAIN 



CMP 



***** SETCLK ***** 

* READ CLOCK 

* SET COMPARE RE 

* WAIT FOR PULSE 

* LOOP W/ A I NCR 
SETCLK LDAB #S 

LDX CL 

ABX 

STX OC 

* PRINT COUNTER 



G = CLOCK + 20 



LDX 
NOTSET LDAB 
ASLB 
I NX 
BPL 
STX 
LDX 
JSR 
R7S 

TEMP RMS 

END 



WITH EACH LOOP 
20 

GET CLOCK TIME 
ADD *CYCLES 
REG STORE IN COMPARE REG 
- INDICATE WHEN OCF CLEARED 
*0 * TIMES THRU LOOP 
TCSR GET STATUS 
LOOK AT OCF 
TIMES THRU LOOP 
NOTSET WAIT UNTIL OCF SET 
TEMP SAVE * TIMES THRU LOOP 
ftTEMP SET ADR - GO FR 



CLOCK 
PULSE 



0003 NOTSET 00SD 
0084 SETCLK 0093 



OCREG 0OCB 
TCSR 000S 



0U74HS FS15 
TEMP OOAD 



P2DDR 0001 






PAGE i 


0©i 


TOGGLE 


00001 








00002 








00003 








00005 








©0006 






0000 


©©©07 






0004 


00008 






0002 


00009 






0003 


00010 






0006 


00011 






0007 


00013A 


0080 






00014 








00015A 


008.0 


8E 


00AD 


00016A 


0083 


CC 


FFFF 


0001 7A 


0086 


DD 


00 • 


00018A 


0088 


DD 


04 



NAM TOGGLE 
OPT 201 
X CYCLE AROUND PORTS AND WRITE TO THEM 



* PORT EQUATES 

A DDR1 EQU *00 

A DDR3 EQU S04 

A PI EQU S02 

A P2 EQU *03 

a P3 equ tee 

A P4 EQU 507 

ORG 580 



00020 

00021 

00022 

00023A 

00C24A 

00025A 

0002GA 

00027A 

0002SA 

00029A 

00030A 

00031 A 

©0032A 



008A 4A 
00SB 97 02 
008D 3D 0E 
00SF 97 03 
0091 8D 0A 
0093 97 06 
0095 8D 06 
0097 97 07 
0099 8D 02 
009B 20 ED ©08ft 



A 
009D 

A 
009D 

A 
00SD 

A 
009D 



DATA DIRECTION 

P0RT1 DATA 
PORT 2 DATA 
P0RT3 DATA 
P0RT4 DATA 



X I NIT PORTS 1,3,4 FOR OUTPUT 

INIT LDS *ENDPGM+i© 

LDD **FFFF SET FOR OUTPUT 
STD DDRl PORTS 1,2 
STD DDR3 PORTS 3 & 4 

K MAIN LOOP 

* OUTPUT »FF TO S©0 TO PORTS 1,2,3 fc 4 

* WATCH ON SCOPE 
LOOP DECA 

STAA PI 
BSR DELAY 
STAA F2 
BSR DELAY 

STAA P3 
BSR DELAY 
STAA P4 
BSR DELAY 
ERA LOOP 



HI TO LOW 

WRITE PI 
PAUSE 

WRITE PORT 2 

WRITE PORT 3 

WRITE P0RT4 



C-0034 * DELAY ROUTINE 

C0G35A 009D C6 SO A DELAY LDAB *?5© 

0*O36ft 009F 5A DEL2 DECB 

C0037A 00A0 26 FD 003F BNE DEL2 

00G35A 00A2 33 RTS 



00040 00A3 

00041 0080 
TOTAL ERRORS 00000 



A ENDPGM EQV 
A END 



PAGE 001 


TSTIO 














00001 














OPT 


201 




00002 














Nftfl 


TSTIO 




00003 












S ON-CHIP 10 


EQUATES 




00004 






0010 


A 


RMCR 


EQU 


S010 


RATE & MODE CONTROL 


00005 






0011 


A 


TRCS 


EQU 


*0i: 


TRANS/REC CNTRL STAT 


00006 






001 


12 


A 


RECEV 


EQU 


S012 


READ REG 


00007 






0013 


A 


TRANS 


EQU 


S013 


TRANSMIT REG 


cooee 












*i*. *.#.*.* 








GOG 03 






00A0 


A 


STACK 


ECU 


scac- 




00010 












*: 








000 1 1A 


00C0 












ORG 


S0C2 




0001 2A 


00C0 


8E 


00A0 


A 


START 


LDS 


*ST£CK 




00013 












* INIT 


SERIAL 


10 - SET 


RMCR, TRCS 


00014A 


00C3 


CC 


070 A 


A 




LDD 


*S070ft 


NRZ, SERIAL 


0001 5 A 


00C6 


DD 


10 




A 




STD 


RMCr 


BAUD = 30 


00016 












* 








O0017 












* TEST 


- LOOP 


ON READING INPUT FROM 


0001 S 












* 


KEYBOARD AND 


PRINTING 


0001 3 A 


00C8 


5T> 


02 


00CC 


LOOP 


BSR 


INCH 




00020 A 


00 C A 


20 


FC 


00C6 




BRA 


LOOP 




00022 












* INPUT ROUTINE 




00023A 


00CC 


96 


1 1 




A 


INCH 


LDAA 


TRCS 


GET CNTRL WRD 


00024A 


00CE 


48 










ftSLA 




CHK RDRF SET 


00025A 


QQCF 


24 


FE 


QQCC 




BCC 


I NCH 


LOOP UNTIL IT IS 


00 026 A 


00D1 


96 


12 




A 




LDAA 


RECEV 


READ 


00 027 A 


00D3 


84 


7F 




A 




AND A 


**7F 


CLEAR PARITY 


0O028A 


00D5 


81 


7F 




A 




CMP A 


*S7F 


RUBOUT? 


O002SA 


00D7 


27 


F3 


00CC 




BEO 


INCH 




00030A 


00DS 


8D 


01 


00DC 




BSR 


CUTCH 


ECHO PRINT 


00031A 


00 DB 


39 










RTS 






00033 












* OUTPUT ROUTINE 




00034A 


00DC 


D6 


11 




A 


OUTCH 


LDAB 


TRCS 


GET CNTRL WRD 


00C35A 


Q-^DE 


C5 


20 




ft 




BITE 


SJT2C' 


TDRE SET? 


00036A 


00E0 


27 


FA 


00DC 




BEG 


OUTCH 




00037A 


00E2 


37 


13 




A 




STAA 


TRA'o 




GO 03 8 A 


00E4 


39 










RTS 






00039 






00C0 


A 




END 


START 





TOTAL ERRORS 00000 



DDR1 


0000 


DDR3 


0004 


DEL2 


009F 


DELAY 


00SD 


INIT 


0080 


LOOP 


008A 


PI 


0002 


F2 


0003 


P4 


0007 















ENDPGM 00A3 
P3 0006 



INCH 


00CC 


LOOP 


00C8 


OUTCH 


00DC 


RECEV 


0012 


STACK 


00A0 


START 


00C0 


TRANS 


0013 


TRCS 


001 1 



PAGE 001 

00001 
00002 

00004 

00005 
00006 
00007 
00008 

00010 
00011 
00012 
00013 

00015 
©0016 



TSTPTM 



NAM 
OPT 



TSTPTM 
201 



X TEST PTM BOARD 

X NMI IS TIED TO INVERTED OUTPUT OF TIMER 1 

X SET LATCHES TO AND BRING OUT OF RESET 

* TO PREVENT CAUSING NMI AT INITIALIZATION 

X THEN SET REQUIRED PTM MODE 

X LILBUG EQUATES 
F812 A OUTZHS EQU *F812 
FBI 5 A 0UT4HS EQU *F815 
FS18 A PCRLF EQU SF516 

X ADDRESS FOR PTM 
CF0O A PTM EQU *CFQQ 



PAGE 002 TSTPTM 












00059A 2049 CE 2000 


A 




LDX 




• RES A 


00060 




X 


PRINT REG 


A 


- IF NMI AFTER INIT 


00061 




X 






FF IF AFTER SET LATCHES 


00062 




X 


PRINT REG 


X 


FROM DELAY LOOP 


O0O63A 204C ED F81Z 


A 




JSR 




OUTZHS 


0OC64A 204F BD FBI 5 


A 




JSR 




OUT4HS 


0O065A 2052 BD F818 


A 




JSR 




PCRLF 


0CO66A 2055 SB 






RTI 






00067 






END 






TOTAL ERRORS 00000 













DLY 2025 
OUTERS FS15 



DLY2 


203E 


MAIN 


2028 


NMIRT 


2043 


0UT2HS F812 


PCRLF 


F818 


PTM 


CF0C 


REGA 


2000 


TEMP 2001 






00016 

©001 9 A 

©0020 A 

©0021 A 

00022A 

0O023A 

00024 

00025A 

00026A 

00027 

0002SA 

00029A 

00030A 

00031A 

00032A 

00033A 

0O034A 

00035A 

00036A 

00037A 

00038 

00039A 

00040A 

00041A 

00042 

00043A 

(2-.0044A 

0O045A 

00046 

00047A 

0004SA 

00049A 

0O05CA 

00051 A 

0O052A 

C0053A 

C0054.A 



X TEMPORARY STORAGE 



2000 

2000 0001 A 

2001 0002 A 

2003 04 A 

2004 8E 2100 A 



2007 CE 2043 

200A FF FFFC 

200D CE CF00 

2010 6F 02 

2012 6F 03 

2014 CC 0122 

2017 A7 01 

2019 E7 00 

Z01B 86 A6 

201D A7 

201F 6F 

2021 4F 



00 
01 



2022 CE 2000 A 

2025 09 

2026 26 FD 2025 

2028 CE 2028 A 
202B BD FS12 A 
202E BD F818 A 



2031 CE CF0& 
2034 CC 0601 
2037 ED 02 

S6 FF 

CE 2000 

09 

£6 



2039 
203B 
203E 
203F 
2041 



ORG 

REGA RMB 

TEMP RMB 

FCB 

LDS 



*2000 
1 



4 

ssziee 



* SET NMI VECTOR 

A LDX #NMIRT 

A STX SFFFC 

X INIT PTM 

A LDX *FTM 

A CLR 2,X 

A CLR 3,X 

A LDD *ei22 

A STAA 1 , X 

A STAB , X 

A LDAA *SA€ 

A STAA 0,X 

A CLR 1 , X 
CLRA 

X NMI MIGHT OCCUR 



SAVE REG A 

SAVE REG X 8c PRT 



SET STK PNTR 



DLY 



LDX 
DEX 
BNE 
X MAIN LOOP 
MAIN LDX 
JSR 
JSR 



SET LATCHES =0 

GET OUT OF RESET 
SET TO WRITE REG 1 
WRITE REG 1 
ENABLE TIMER OUTPUT 

NO MORE WRITE TO CR 1 
FLAG = 0, PRINTED BY NMI 
AFTER INIT, BUT SHOULDN'T 
WAIT LOOP 



DLY 

• MAIN 

OUTZHS 

PCRLF 



SIGNAL TOP OF LOOP 
PR CE 



X SET CNTR TO CA.USE NMI 



DLY2 



FD 203E 

E5 2028 



LDX 

LDD 

STD 

LDAA 

LDX 

DEX 

BNE 

BRA 



*FTM 

#5601 

2,X 

#ZFF 

*£20O0 

DLY2 
Mi IN 



SET LrM 



RESET FLAG AFTER LATCHES S 
DELAY - NMI SHOULD OCCUR 



00056 

C ©057 A 2043 B7 2000 

00O58A 2046 FF 2001 



X NMI ROUTINE 
A NMIRT STAA REC 



SAVE FLAG-SHOW WHEN NMI OC 
SAVE LOOP COUNTER 



APPENDIX D 

LILbug PROGRAM LISTING 



PAGE 001 



LILBUG 6801 DEBUG MONITOR XX* VER 1.0 *** 



00001 
00002 
00003 



OPT Z01 

TTL 6801 DEBUG MONITOR XX* VER 1-0 XX* 

NAM LILBUG 



00005 
00006 
00007 
00003 

00009 
00010 
00011 
00012 



X X X * X * * X X X * X X X * * X * * * * * 

* * 

* * * * * LILBUG X X * * * 

* X 
X M T R L A X 
X AUSTIN, TEXAS- X 
X , X 
X X X X X X X X X X X X X X X X X "* X X X X 



00014 

00015 

00016 

0001 7 
1 8 
1 9 
00020 
2 1 
(?) £ i/} 2 2 



^ JR JRJR3R3tJRiRiR^jR JR * JR JK * * 3R JF. S #R iR JK * * * 1^ W! JR !R 7\ «R * !R * ^ * 5R W! ^ ^ * * to! to * 

* ALTHOUGH THE INFORMATION CONTAINED HEREIN, AS 
WELL AS ANY INFORMATION PROVIDED RELATIVE 
THERETO , HAS BEEN CAREFULLY REVIEWED AND IS 
BELIEVED ACCURATE,. MOTOROLA ASSUMES NO LIABILITY 



*■; 
X 
X 
X 
X 
X 

xxxxxxxxxxxxxxx^xxxxxxxxxxxxxxxxxxxxxxxx****** 



ARISING OUT OF. 
DOES IT CONVEY 
RIGHTS NOR THE 



ITS APPLICATION OR USE, NEITHER 
ANY LICENSE UNDER ITS PATENT 
RIGHTS OF OTHERS. 



00024 



* COPYRIGHT 



MOTOROLA, INC 



1978 



48 



PAGE 002 LILBUG 6801 DEBUG MONITOR *** VER 1.0 XXX 



PAGE 003 LILBUG 9801 DEBUG MONITOR XXX VER 1.0 XXX 



CO 



00018 
00019 

00020 

00021 
00022 
00023 
00024 
00O25 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 



XXXXXXXXXXXXXXX COMMANDS XXXXXXXXXXXXXXXX 

X L LOAD A PROGRAM FROM TAPE 

X L < OFFSET? LOAD FROM TAPE WITH AN OFFSET 

X V VERIFY THAT A PROGRAM WAS PROPERLY LOADED 

* V < OFFSET > VERIFY PROGRAM LOADED WITH AN OFFSET 
X D X,Y DISPLAY MEMORY FROM X TO Y 

X P X,Y PUNCH CONTENTS OF MEMORY FROM X TO Y 

X M X MEMORY EXAM I NE/MOD I FY 

X <DATA> CHANGE 1 BYTE IN MEMORY TO < DATA > 

X LF I NCR POINTER, PR ADR AND VALUE OF NEW PNTR 

X SP I NCR PNTR, PR NEW VALUE ON SAME LINE 

X , I NCR PNTR, NO PR OF ADR OR VALUE 

X UA DECR PNTR, PR ADR AND VALUE AT PNTR 

X / PR ADR AND VALUE OF CURRENT PNTR 

X CR END MEMORY EXAMINE COMMAND 

X X/ SAME AS M X, X MUST START W/ 0-9, MAY NEED LEADING 

X / PR ADR AND VALUE OF LOC LAST REF WITH MEM/EXAM 

X X Y CALCULATE RELATIVE OFFSET FOR BRANCH INSTR 

X B DISPLAY ALL BREAKPOINTS 

X B - DELETE ALL BREAKPOINTS 

X B X ENTER BREAKPOINT AT ADR X 

X B -X DELETE BREAKPOINT AT ADR X 

X G X EXECUTE USER PROG STARTING AT ADR X 

X G • EXECUTE USER PROG STARTING AT CURRENT PC 

X R DISPLAY/CHANGE USER'S PROGRAM REGS 

X > TRACE i INSTRUCTION 

X T X TRACE X INSTRUCTIONS 

■X C EXECUTE USER'S CODE AS SUBR, RTS TO MONITOR 

X C X XQT USER'S CODE AS SUBR START AT ADR X 

X HI SET HIGH SPEED - 120 CPS FOR ON-CHIP 10 

X MY SET HIGHER YET SPEED.. FOR CRT - 9600 BD 

X CONTROL X - TERMINATE D OR T PRINT 

* CONTROL U ~ WAIT DURING D OR T PRT, ANY CHAR 
X CAUSES CONTINUATION OF PRINT 



00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 

00071 
00072 
00073A 
00074A 

00076A 

00077 

0007SA 

00079A 

00080 

00081 

00082A 

00083A 

000S4A 

00085A 

O0086A 

00087 

00088A 

000S9A 

00090A 

00091 A 

00092A 

00093A 

00094A 

00095 

00096A 

00O97A 

00098A 

00O99A 

001 00 A 

00 101 A 

001 02 A 

001 03A 

001 04A 

001 05 A 

00 106 A 



00CF 
00CF 



00D1 
00D3 



00D5 
00D6 
00D7 
00D9 
00DB 

00DC 
00DD 
00DF 

00E1 

00E2 
00E3 
00E4 

00E6 
O0EE 
00F2 
00F3 
O0F5 
00F6 
O0F7 
00F8 
00FA 
O0FC 
00FE 



0017 
0018 

0001 
0009 

0008 
000B 

0010 

0011 

0012 
0013 

0003 

E000 



0080 

0001 

0001 
00D0 
0002 
0002 



0001 
0001 
0002 
0002 
0001 

0001 
0002 
0002 
0001 
0001 
0001 
0002 

0004 

0008 
0004 
O001 
0002 
0001 
0001 
0001 
0002 
0002 
0002 

0002 



X CONTROL CHARACTERS RECOGNIZED DURING PRINT 
CNTLW EQU »17 WAIT CHARACTER 
CNTLX EQU »1S ABORT CHARACTER 
X ON-CHIP CLOCK EQUATES 



P2DDR EQU 
CLOCK EQU 
TCSR EOU 
OCREG EQU 
X ON-CHIP 10 
RMCR EQU 
TRCS EQU 
RECEV EQU 
TRANS 
X MODE 
MODE 



EOU 

SELECT 

EQU 

X DEFAULT ADDRESS FOR 
PTMADR EQU *E000 



SOI 
*09 
»08 
JOB 
EQUATES 
$010 

ton 

S012 
«013 
WORD 
*03 



PORT 2 DATA DIRECTION REG 
TIMER 1 

TIMER CONTROL STATUS REG 
OUTPUT COMPARE REG 

RATE & MODE CONTROL 
TRANSMIT/RECEIVE CNTRL STAT REG 
READ REG 
TRANSMIT REG 



UPPER 3 BITS 
»TM 



MODE 



XXXXXXXXXXXXXXX RAM STORAGE XXXXXXXXXXXXXXX 

A LOWRAM EQU t80 USED FOR STK OVFLOW CHK 

ORG SCF 

A STACK RMB 1 STK PNTR WILL RUN UP TOWARD USER C 

A CT RMB 1 INPUT CHAR CT 

A CKSUM EQU CT USED BY LOAD/VERF 

A STRTX RMB 2 INPUT CHAR PTR (ON SATCK > 

A NEXTX RMB 2 NEXT TABLE PTR 

X CHRNL - UPPER 6 BITS-# NULLS AFTER CR 

X LOW 2 BITS-* NULLS AFTER CHAR 

1 NUM NULLS AFTER CHAR 

1 BULK STORE BLK + NXT 4 LOC 

2 OPEN ADR 



RMB 
RMB 
RMB 
RMB 
RMB 



A CHRNL 

A BBLK 
PNTR 
TEMPA 
TEMP 

X TEMP AND 

OVFL RMB 

SAVSTK RMB 

RMB 

A RMB 

A RMB 

A ' RMB 

A SPSAVE RMB 

A NUMBP 

A BKADR 

A OPCODE RMB 

A BRKFLG RMB 

A NTRACE 

A EXONE 

A OUTSW 

A CALLF 

A PTM 

A FCTPTR 

A IOPTR 

A VECPTR 



OVFL MUST FOLLOW TEMPA 



EQU 
RMB 



RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 



NUMBPX2 
NUMBP 



OVERFLOW FLAG 

PC 

X 



cc 

STK 

NUMBER OF BREAKPOINTS 

BRKPNT ADDRESS 

BRKPNT IN 

TRACE N INSTR 

XQT 1 INSTR FLAG 

ECHO FLAG 

FLAG FOR C CMD 

PTM ADDRESS 

FOINTER TO FUNCTION TABLE 

10 TABLE FOINTER 

VECTOR TABLE POINTER 



PAGE 004 LILBUG 6801 DEBUG MONITOR *** VER 1.0 *** 



PAGE 005 



LILBUG 6801 DEBUG MONITOR *** VER 1.0 *** 



00108 
00109A F800 



*************** BEGINNING OF ROM *************** 
ORG SF800 



o 



00111 
00112A 
001 13A 
00114A 
©0115A 
00116A 
00117A 
001 ISA 
001 ISA 
001 20A 
001 21 A 
00122A 
00123A 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

C0132 

00133 

00134 

00135 

00136 

00137 

00133- 

00139 

00140 

00141 

00142 

00143 

00144 

001 45 A 

001 46A 

001 47A 

001 48A 

00149A 

001 50 A 

001 51 A 

00152A 

00153A 

00154A 

001 55A 

001 56A 

001 57A 

001 58 A 

001 59A 

1 6 A 

00161 A 

001 62A 

00163A 

001 64A 



FS00 
F803 
F806 
FS09 
FS0C 
F80F 
F812 
FS15 
F818 
FS1B 
FS IE 
F821 



7E FC7E 
7E FC79 
7E F873 
7E FSSA 
7E FB07 
7E FB0E 
7E FADB 
7E FADS 
7E FBI 2 
7E FADD 
7E FSF6 
7E FD5F 



F824 

F825 
F826 
F828 
F829 
F82A 
F82C 
F82D 
FS2E 
FS30 
F831 
FS32 
F834 
F835 
F836 
F83S 
F839 
F83A 
FS3C 
F83D 



F824 

04 

42 

FB9S 

04 

43 

FC0F 

04 

44 

FDS6 

04 

47 

FC11 

04 

4C 

FE9A 

04 

4D 

FA5B 

04 

4F 



* JUMP TABLE 

EX. NMI JMP 

IN.NMI JMP 

INCHNP JMP 

OUTCH JMP 



JMP 
JMP 
JMP 
JMP 
JMP 
JMP 

A STRT JMP 
A IN.SWI JMP 



TO SUBROUTINES 

M.NMI NMI VECTOR FOR PTM 

C.NMI NMI VECTOR FOR ON-CHIP TIMER 

INCH1 INPUT 1 CHAR W/ NO PARITY 

OUTCH1 OUTPUT 1 CHAR W/PADDING 

PDATA1 PRINT DATA STRING 

PDATA PR CR/LF, DATA STRING 

0UT2HS PR 2 HEX + SP ( X > 

0UT4HS PR 4 HEX + SP C X ) 

PCRLF PRINT CR/LF 

SPACE PRINT A SPACE 

START RESTART ADDRESS 

M.SWI SWI VECTOR 



********** COMMAND TABLE ********** 

* THERE MAY BE AN EXTERNAL TABLE OF THE SAME 

* FORMAT. 'FCTPTR' POINTS TO THE TABLE TO 

* BE SEARCHED FIRST. THE USER CAN DEFINE 

* HIS OWN TABLE AND SET FCTPTR. 
* 

* EACH ENTRY IN THE TABLE IS AS FOLLOWS: 

* FCB XXX XXX=TOTAL SIZE OF ENTRY 

* FCC /STRING/ STRING IS THE INPUT STRING 

* FDB ADDR ADDR IS THE ROUTINE ADDRESS 
* 

* THE LAST ENTRY IS: 

* -l=END EXTERNAL TABLE, SEARCH INTERNAL TABLE 

* -2=END OF TABLECS) 
* 

* NOTE: AN EXTERNAL FUNCTION TABLE TERMINATED BY 
ft. -1, THE INTERNAL TABLE WILL ALSO BE SEARCHED. 

* IF TERMINATED BY -2, INTERNAL TABLE NOT CHECKED. 



FCTABL EOU 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 
FDB 
FCB 
FCC 



4 

/B/ 

BRKPNT 

4 

/C/ 

CALL 

4 

/D/ 

DISPLY 

4 

/G/ 

GOXQT 

4 

/L/ 

LOAD 

4 

/M/ 

MEMORY 

4 

/0/ 



00165A 
00166A 
001 67A 
00168A 
001 69 A 
00170A 
00171A 
00172A 
00173A 

A 
00174A 
001 75A 
00176A 

A 
00177A 
001 7SA 
001 79A 
00180A 
001 81 A 
001S2A 
001 83 A 
00184A 

00186 
00187 
00188 
00189 
0019O 
001 91 A 
A 
A 
00192A 
A 
A 
001 93A 
A 
A 
001 94 A 
A 
A 

00196 
00197 
00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 

00211 

00212 



F83E 
F840 
F841 
FS42 
FS44 
F345 
FS46 
FS48 
FS49 
F84A 
FS4B 
F84D 
F84E 
F84F 
FS50 
F852 
F353 
F854 
FS56 
FS57 
F85S 
F85A 



FS5B 
F85D 
FS5F 
F861 
F863 
FS65 
F867 
F369 
F36B 
F36D 
F86F 
FS71 



FAB4 

04 

50 

FE72 

04 

52 

FB1E 

05 

48 

49 

FSE9 

05 

48 

59 

F8F1 

04 

54 

FC46 

04 

56 

FEAB 

FE 



F8C8 

F891 
FSD1 
FSD2 
FSA8 
F3D1 
F8D1 
FDEC 
F3D1 
FEAF 
FEC3 
FEBA 



0000 
0002 

0004 
0006 
0008 
000A 
000 C 
000E 
0010 
0012 
0014 
0016 



FDB 


OFFSET 


FCB 


4 


FCC- 


/P/ 


FOB 


PUNCH 


FCB 


4 


FCC 


/R/ 


FDB 


REGSTR 


FCB 


5 


FCC 


/HI/ 


FDB 


S120 


FCB 


5 


FCC 


/HY/ 


FDB 


HY 


FCB 


4 


FCC 


/T/ 


FDB 


TRACE 


FCB 


4 


FCC 


/V/ 


FDB 


VERF 


FCB 


-2 



*END OF TABLE 

**************** 10 TABLE *************** 

* ROUTINE 10 IS CALLED WITH 

* INDEX INTO 10 TABLE CI OR INTO USER 10 TABLE 

* IOPTR POINTS TO THE 10 TABLE TO BE USED 

* THE INDEX TABLE DEFINES ORDER OF 10 ROUTINES INTO TABL 
CI FDB CI ON, CI DTA, CI OFF 



FDB COON,CODTA,COOFF 



FDB HSON,HSDTA,HSOFF 



FDB BSON,BSDTA,BSOFF 



* THE FOLLOWING ARE 



.ON EQU 
.DTA EQU 



A CI . 

A CI . 

A CI .OFF EQU 

A CO. ON EQU 

A CO. DTA EQU 

A CO. OFF 

A HS.ON 



EQU 
EQU 
HS.DTA EQU 



HS.OFF 



EQU 
EQU 



A BS.DTA EQU 
A BS.OFF EQU 





4 
6 
8 
f-A 

SC 

«E 

«10 

*12 

SI 4 

*16 



************** INCH 

* CALL 10 ROUTINE W/ 

* CLEARS PARITY 



INDICES INTO 10 TABLE 
INIT INPUT DEVICE 
INPUT A CHAR W/NO WAIT 
DISABLE INPUT DEVICE 
INIT OUTPUT DEVICE 
OUTPUT A CHAR W/PADDING 
DISABLE OUTPUT DEVICE 
INIT HIGH SPEED OUTPUT DEVICE 
OUTPUT BLOCK OF DATA 
DISABLE HIGH SPEED DEVICE 
INIT PUNCH/LOAD 
WRITE DATA BLK TO PNCH/LOAD 
DISABLE PUNCH/LOAD 

************** 
INDEX TO INPUT DATA 
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00213 










* IGNORES RUBOUT CHAR 




00214 










* ECHOES OUTPUT IF FLAG CLEAR 


00215 










* SAVE 


, RESTORE REG B 




00216A 


F373 


37 






INCH! 


PSHB 






00217A 


FS74 


C6 


02 


A 


INCH15 


LDAB 


#CI .DTA 


OFFSET TO CI DTA 


0021 8A 


FS76 


8D 


67 


F8DF 


INCH2 


BSR 


10 


SCAN 10 DEVICE 


00219A 


FS78 


24 


FA 


F874 




BCC 


INCH15 


LOOP ON NO WAIT 


00220A 


F87A 


84 


7F 


A 




ANDA 


*«7F 


CLEAR PARITY 


0O221A 


F37C 


27 


F6 


FS74 




BEQ 


INCH15 


IGNORE NULLS 


00222A 


FS7E 


81 


7F 


A 




CMPA 


*»7F 


RUBOUT? 


00223A 


F880 


27 


F2 


F874 




BEQ 


INCH15 




00224A 


F882 


D6 


F6 


A 




LDAB 


OUTSW 


CH!< IF ECHO 


00225A 


F884 


26 


02 


F888 




BNE 


INCH4 




00226A 


FSS6 


8D 


02 


F88A 




BSR 


0UTCH1 


ECHO INPUT 


00227A 


FSS3 


33 






INCH4 


PULB 






00228A 


F889 


39 








RTS 







00230 

00231 

00232 

00233A F88A 37 

00234A F8SB C6 08 A 

00235A FSSD SD 50 F8DF 

00236A F88F 33 

02237A F8-30 39 



00239 

00240 

0O241 

00242 

00243A 

00244A 

00245A 

00246A 

00247A 

00248 

00249A 

00250 

0025 I A 

00252A 

00254 

00255 

00256 

00257 

00258 

00259 

00260 

002SIA 

002G2A 

00263A 

00264A 

002S5A 

00 266 A 

00 2 67 A 



F891 96 
F893 48 
F894 25 
F896 48 
F897 24 



03 F83C 



F899 96 12 



F89B 0D 
FS9C 39 



F89D 
F89E 
F8A0 
F8A2 
FSA4 
F8A6 
F8A7 



D6 
C5 



FA 
13 



X************** OUTCH *************** 

* CALL 10 ROUTINE U/' INDEX TO OUTPUT DATA 

* SAVES, RESTORES REG B 
0UTCH1 PSHB 

LDAB *CO.DTA PNTR TO OUTPUT A CHAR W/PADDING 

BSK 10 

PULB 

RTS 



XX************* CIDTA *************** 

* READ 1 CHAR FROM INPUT W/ NO WAIT 

* RETURN W/ C CLEAR IF NO READ 

* ELSE REG A = INPUT & C IS SET 



F899 



LDAA 


TRCS 


ASLA 




BCS 


C IDT At 


ASLA 





SET 



GET CONTROL WORD 

CHK THAT RDRF IS 

READ DATA IF SET 

LOOK AT ERR BIT 

RTN W/C CLR IF NO READ 



BCC CIDTA2 

* IF FRAMING ERR OR OVER RUN-READ 
CIDTAt LDAA RECEV READ 

* RETURN W/CARRt SET & LDAA BITS SET 

SEC FLAG READ-NO WAIT ACOMPLISHD 

CIDTA2 RTS 

********** CODTA ********** 

* OUTPUT CHAR FROM REG A 

* OUTC - SUBR CALLED BY CODTA 

* EXPECT 30 OR 120 CPS 
DEFAULT SPEED = 30 CPS 
PADS CR AND CHAR FOR 120 

IF PUNCH 



* 

* 

* PAD 

OUTC 

0UTC1 



F89E 

A 



00269A F8A8 8D F3 F89D CODTA 
00270A FSAA DS F6 A 



4 NULLS 
PSHB 
LDAB 
BITS 
BEQ 
STAA 
PULB 
RTS 

BSR 
LDAB 



TRCS 
**20 
0UTC1 
TRANS 



OUTC 
OUTSW 



CR 

GET CONTRL WRD 

TORE SET? 

WAIT UNTIL IT IS 



OUTPUT CHAR 
GET TAPE FLAG 



00271A 
00272A 
00273A 
00274A 
00275A 
00276A 
00277A 
00278A 
00279A 
00280A 
00281A 
00232A 
00283A 
00284A 
00285A 
00286A 
00237A 

00289 

00290 

00291 A 

00292A 

00233A 

00294A 

00235 

00296 

00297 

00233 

00233A 

00300 

00301 

00302 

00303 

00304A 

00305A 

00306 

00307A 

00303A 

00303 A 

0031 0A 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

0031 8A 

0031 9A 

0032OA 

00321 A 

00322A 

O0323A 

O0324A 

00326 
00327 
00328 



F8AC 
FSAE 
FSB0 
F8B2 
F8B4 
FSB6 
F8B8 
F8BA 
F8BC 
F8BD 
F8BE 
F3BF 
F8C1 
FSC2 
F8C3 
FSC5 
FSC6 



26 02 F8B0 
A 



D6 D5 
81 0D 



A 

27 08 F8BC 
31 10 A 
27 EF F3A7 
C4 03 A 
20 02 FSBE 
54 
54 
5A 

2B E6 F3A7 
36 
4F 

SD D8 F89D 
32 
20 F6 FSBE 



N3 



BNE 

LDAB 

CMPA 

BEQ 

CMPA 

BEQ 

ANDB 

BRA 

LSRB 

LSRB 

DECB 

BMI 

PSHA 

CLRA 

BSR 

PULA 

BRA 



Nl 

CHRNL 

♦ SD 

N3 

*S10 

CRTN 

#»3 

N4 



N4 



NOT TAPE 
CR 

NO PADDING IF DLE 

MASK OUT HIGH 6-BIT CNTR 

REMOVE LOW 2-BIT CNTR 

DECR NULL CNTR 

EXIT IF ENOUGH NULLS 

OUTPUT NULL 
PR HXT NULL 



FSCS CC 1007 



*************** CION *************** 
* INITIALIZE ON-CHIP SERIAL 10 
A CION LDD #»1007 SET PADDING FOR 



300 



F8CB SD IF F8EC 



F8CD 86 
F8CF 97 



0A 
11 

F8D1 
F8D1 
F3D1 



SET RMCR 

SET TRCS FOR ON-CWP 



BSR S1205 

LDAA *»0A 

STAA TRCS 
* NO ACTION NEEDED BY THESE DEVICES 

CIOFF EQU * TURN CONSOLE IN OFF 

HSON EQU * TURN ON HIGH SPEED 

HSOFF ECU * TURN OFF HIGH SPEED 

COOFF RTS 



10 



F8D2 
F3D5 

F3D8 
FSDB 
FSDC 
F8DE 



FF86 
FB07 



*************** COON *************** 
* INITIALIZE OUTPUT DEVICE-SILENT 700 PRT 
PRINTER 
#PRTON 
PDATA1 
B30FF FOR 
♦S411B 



* TURN ON TI 
COON LDX 
C00N2 JSR 

* ENTRY FROM 
DELAY LDX 



ACTIVATE ACD 



DELAY AFTER TURN OFF PUNCH 
100 MS DELAY 



DLY 



FD F8DB 



DEX 
BNE 
RTS 



DLY 



*************** 10 ROUTINE *************** 

* THIS ROUTINE USES INDEX TO RETRIEVE 10 

* ROUTINE ADR FROM 10 TABLE, THEN CALL AS SUBR 

* REG B IS INDEX INTO 10 TABLE 



F8DF 
F3E0 
F8E2 
F8E3 
p'SES 
FSE? 
r 8E8 



3C 
DE 
3 A 
EE 
AD 
38 
33 



TO DO 10, 
SAVES REG 
PSHX 
LDX 
ABX 



PULX 
RTS 



REG 
X 



B IS SET, 10 ROUTINE IS CALLED 



ADR 

ADD 
GET 
DO 



OF 10 TABLE 
OFFSET 

10 ROUTINE ADR 
10 



XX************ HY / HI **X***X*X*XXX 

* HY & HI SET CHRNL FLAG FOR PADDING 

* AND SET ON-CHIP SERIAL 10 RMCR 
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00329 










X LOW 2 BITS = NUM NULLS AFTER CHAR 


00330 










* HIGH G BITS = NUM NULLS AFTER CR 


00332 










XXXX.*X*;*X*XX*X HI ************** 


00333 










* SET SPEED FOR 120 CPS 


00334 










* SET # NULLS TO PAD CHAR 


00335 










* SET BITS FOR 1200 BAUD IN RMCR 


00336A 


FSE9 


CC 


4F06 


A 


S120 LDD #t4F06 


00337A 


FSEC 


97 


D5 


A 


SI 205 STAA CHRNL 


0033SA 


F&EE 


D7 


10 


A 


STAB RMCR SET BAUD RATE 


O0339A 


F8F0 


3d 






RTS 


00341 










XX***XX***:;*XXX* HY XXXX*X*X *****X* 


00342 










X HIGHER YET - 960O BAUD ON CRT 


0O343 










* SET PADDING TO 7ER0 


00344A 


FSF1 


CC 


0005 


A 


HY LDD #«0005 ALSO SET RMCR 


O0345A 


F8F4 


20 


F6 FSEC 


BRA SI 205 



to 
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00347 










XXXXXXXXXX RESET XXXXXXXXXX 


00348 










X 


COME 


HERE 


FOR MONITOR RESTART 


00349 










* 


INIT 


10 8c 


FCN TABLE 


POINTERS 


00350 










X 


TURN 


ON CONSOLE 




00351 










* 


PRINT MONITOR NAME 




00352 










* 


INIT 


RAM USED BY MONITOR 


00353 










X 


MASK 


I BIT IN USER CC 


00354 










X 


SET 


INITIAL SPEED 




00355 










X 


INIT 


HARDWARE TRACE 


DEVICE 


00356A 


F8F6 


8E 


00CF 


A 


START 


LDS 


•STACK 


INIT STK PNTR 


00357A 


FSF9 


CE 


F85B 


A 






LDX 


#CI 


INIT I/O PNTR TABLE 


00358A 


F8FC 


DF 


FC 


A 






STX 


IOPTR 




00359A 


F8FE 


CE 


FFCS 


A 






LDX 


♦SERIAL 


INIT VECTOR TABLE POINTER 


00360A 


F901 


DF 


FE 


A 






STX 


VECPTR 




00361A 


F903 


CE 


FS24 


A 






LDX 


♦FCTABL 


INIT FUNCTION TABLE PTR 


003G2A 


F906 


DF 


FA 


A 






STX 


FCTPTR 




00363A 


F908 


CE 


E000 


A 






LDX 


♦PTMADR 


SET ADR FOR PTM 


00364A 


F90B 


DF 


F8 


A 






STX 


PTM 




00 3 65 A 


F90D 


8E 


00BB 


A 






LDS 


♦STACK-2 


!0 RESET INCASE USER DIDN'T 


00366A 


F910 


9F 


E4 


A 






STS 


SPSAVE 


INIT USER STACK 


00367A 


F912 


8E 


00CF 


A 






LDS 


♦STACK 


RESET MONITOR STK 


0036SA 


F915 


CE 


00E6 


A 






LDX 


♦BKADR 


ZERO BKADR TO OVFL 


00369A 


F918 


6F 


00 


A 


CLRAM 


CLR 


0,X 




00370A 


F91A 


08 










I NX 






00371A 


F91B 


SC 


00F8 


A 






CPX 


#CALLF+1 




00372A 


F91E 


26 


FS F918 






BNE 


CLRAM 




00373A 


F920 


5F 










CLRB 




OFFSET FOR CI ON 


00374A 


F321 


3D 


BC FSDF 






BSR 


10 


TURN ON CONSOLE IN 


00375A 


FS23 


C6 


06 


A 






LDAB 


♦CO.ON 


OFFSET FOR COON 


0O376A 


F925 


3D 


BS FSDF 






BSR 


10 


TURN ON CONSOLE OUTPUT 


00377A 


F927 


CE 


FF90 


A 






LDX 


#LIL 


PR LILBUG 


"00 37 8 A 


F92A 


BD 


FB0E 


A 






JSR 


PDATA 


WITH CR/LF 


00379A 


F92D 


86 


DO 


A 






LDAA 


♦ *D0 


MASK I IN CC 


00380A 


F92F 


97 


E3 


A 






STAA 


SAUSTK+e 




00383 










X 


INIT 


FOR HARDWARE TRACE - 


00384 










X 


CLOCK OR PTM 




00385A 


F931 


BD 


FCEA 


A 






JSR 


IFPTM 




00386A 


F934 


27 


0A F940 






BEO 


INPTM 


GO INIT PTM 


00387 










X 


INIT 


ON-CHIP CLOCK 




003&8A 


F93G 


SC 


F803 


A 






CPX 


♦IN. NMI 


MAY NOT WANT ANY TRACE 


003S9A 


F939 


26 


17 F952 






BNE 


MAIN 


IF NMI NOT SET-NO TRACE 


00390A 


F93B 


7C 


0008 


A 






INC 


TCSR 


SET OLVL BIT HI 


00391A 


F93E 


20 


12 F952 






BRA 


MAIN 




00392 










X 


INIT 


PTM - 


- SINGLE SHOT, 8 BIT 


00393 










X 


USER 


MUST 


SET NMI VCTR FOR PTM TRACE 


00394 










X 


MONITOR CHK IF VCTR 


SET 


00335A 


F940 


DE 


F8 


A 


INPTM 


LDX 


PTM 


GET PTM ADDRESS 


00336A 


F942 


6F 


02 


A 






CLR 


2,X 


SET LATCH FOR BRING OUT 


00397A 


F944 


6F 


03 


A 






CLR 


3>X 


OF RESET, MAKE G HI 


00398A 


F946 


CC 


0122 


A 






LDD 


♦S0122 




00399A 


F349 


A7 


01 


A 






STAA 


1 ,X 


SET TO WRITE TO CR1 


00400A 


F94B 


E7 


00 


A 






STAB 


0,X 


BRING OUT OF RESET 


00401 A 


F94D 


CC 


A600 


A 






LDD 


#*A600 


SET SINGLE SHOT MODE 


00402A 


F350 


ED 


00 


A 






STD 


0,X 


ALSO SET NO WRITE TO CRl 


O0403 










X 











GO 
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00404 

00405 

00406 

00407 

00403A 

00409A 

004 10A 

00411A 

0041 2A 

0041 3 A 

0041 4 A 

00415A 

00416 

0041 7 A 

00418A 

004 ISA 

00420A 

00421 

00422A 

00423A 

00424A 

00425A 

00426A 

00427A 

0042S 

00429 

00430 

00431 

00432A 

00433A 

0O434A 

00435A 

00436A 

00437A 

00433A 

00439A 

00440A 

00441A 

00442A 

00443A 

00444A 

00445 

00446 

00447 

00448 

00449 

00450 

00451 

00452 

00453A 

0O454A 

00455A 

0O456A 

00457 A 

0045SA 

00459A 

00461 A 



F952 
F955 
F95S 
F95B 
F95D 
F960 
F963 
F965 

F967 
F96A 
F96C 
F96F 

F971 
F974 
F976 
F978 
F978 
F97D 



F97F 
F9S1 
F384 
F986 
F9S8 
F98B 
F98C 
F98D 
F990 
F992 
F995 
F997 
F999 



MAIN 
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XXXXXXXXXXXXXXX MAIN XXX**XXXXX*XXXX 

* PROMPT USER 

* READ NEXT COMMAND 
X 

♦STACK 

OUTSN 

PCRLF 

*' ! 

OUTCH 

INPUTA 

MAIN 

MAIN01 



00CF A 
00F6 A 
FB12 A 
21 A 
FS09 A 
FA09 A 
ED F952 
0A F971 

F9FC A 
E6 F952 
FA5F A 
74 F9E5 

FC41 A 
2E A 
6D F9E5 
FAA8 A 
2F A 
66 F9E5 



LDS 
CLR 
JSR 
LDAA 
JSR 
JSR 
BMI 
BEQ 

* HEX VALIDITY CHK 
JSR VALIN 
BMI MAIN 
LDX #MEM01 
BRA MAIN08 



MAKE SURE INPUT IS ECHOED 
PRINT CR/LF 



A-F ALPHA 
ABORT 



<ADR>/ VALID? 

ENTER MEMORY ROUTINE 

SET UP FOR RTN 



* A CONTAINS FIRST INPUT CHARACTER 



MAIN01 LDX 
CMPA 
BEQ 
LDX 
CMPA 
BEQ 



#NEXT 



MAIN08 
♦MEMSL 



MAIN08 



CHK FOR TRACE 1 
QUICK TRACE 



CHK FOR / 

QUICK MEM EXAMINE 



* READ IN STRING. PUSH STRING UNTO THE 
X STACK. MARK TOP OF STRING IN 'STRTX' 



Dl A 
00D0 A 
65 F9EB 
13 F99B 
00D0 A 



0080 A 
2B F9BD 
FA09 A 
2C F9C3 
24 F9BD 
E9 F984 



STS 
CLR 
MAIN03 BSR 
BEQ 
INC 
PSHA 
TSX 
CPX 
BEQ 
JSR 
BMI 
BNE 
BRA 



STRTX 

CT 

TERM 

SRCH 

CT 



♦LOWRAM 

MERROR 

INPUTA 

MAIN07 

MERROR 

MAIN03 



SAVE PTR TO INPUT STRING 

INPUT CHAR CT 

CHECK FOR TERMINATORS 

GOT ONE, GO DO COMPARES 

CT -I- 1 -> CT 

SAVE INPUT CHAR ON STACK 

CHECK STACK POINTER 

CHK IF END OF STK 

GO GET NEXT CHAR 

ESCAPE 

NBRS ARE NOT ALLOWED 

LOOP 



HERE AFTER STRING WAS INPUT. CHECK IT AGAINST 
STRINGS IN THE EXTERNAL AND/OR INTERNAL 
FUNCTION TABLES. STRTX POINTS TO THE 
INPUT STRING. FCTPTR POINTS TO THE START 
OF THE FIRST TABLE TO SEARCH (EXTERNAL OR 
INTERNAL). 



F99B 
F99D 
F93F 
F9A1 
F9A3 
F9A4 
F3A6 
F9A7 
F9A9 



D6 
FA 
D3 

D3 

00 

D3 
03 



SRCH STAA 
LDX 
STX 

SRCH01 LDX 
PSHX 
LDAB 
ABX 
STX 
SUBB 



BBLK 

FCTPTR 

NEXTX 

NEXTX 



NEXTX 
*3 



LOCAL VAR - SAVE DELIMITER 

GET PTR TO TABLE 

SAVE IN TEMP 

GET NEXT PTR INTO TABLE 

SAVE A COPY ON STACK 

GET ENTRY SIZE 

CALCULATE ADDR. OF NEXT ENTRY 

SAVE FOR NEXT SEARCH 

SUB OFF ADDR SIZE 
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00462A 


F9AB 


Dl 


D0 


A 




CMFB 




CT 


IS INPUT LENGTH=ENTRY LENGTI 


00463A 


F9AD 


27 


16 


F9C5 




BEQ 




SRCH03 


YES, A POSSIBLE MATCH 


00464 










X 


NO MATCH ON 


THIS ENTRY 


00465 










* 


CHECK FOR 


TABLE TERMINATORS 


00466 










X 


-1 = END OF 


EXTERNAL 


TABLE 


00467 










* 


-2 = END OF 


TABLEC S ) 




00463 










X 


IF NOT -1 


OR -2, NOT 


RECOGNIZE END OF TABLE 


00469 










* 


B IS ALLREADY TERM-3 




00470A 


F9AF 


38 








PULX 






CLEAN STACK 


00471 A 


F9B0 


CI 


FC 


A 




CMPB 




*-4 


END OF EXTERNAL TABLE? 


00472A 


F9B2 


26 


05 


F9B9 




BNE 




SRCH02 


NO 


00473 










X 


SWITCH FROM 


EXT TO INT TABLE 


00474A 


F9B4 


CE 


F824 A 




LDX 




•FCTABL 


GET INNER TABLE 


00475A 


F3B7 


DF 


D3 


A 




STX 




NEXTX 




00476A 


F3B9 


CI 


FB 


A 


SRCH02 CMPB 




#-5 


END OF TABLE SEARCH? 


00477A 


F9BB 


26 


E4 


F9A1 




BNE 




SRCH01 


NO, KEEP TRUCKIN 


00478 










* 


INPUT STRING NOT FOUND ! GO GRIPE 


00479 










* 


HERE ON ERROR. PRINT 


? AND 


00480 










* 


GO BACK 


TO MAIN START 


00481 A 


F9BD 


CE 


FFSE A 


MERROR LDX 




♦QUARK 




00432A 


F9C0 


BD 


FB0E A 




JSR 




PDATA 




004S3A 


F9C3 


20 


3D 


F952 


MAIN07 BRA 




MAIN 




00484 










* 










00485 










* 


INPUT LENGTH=TABLE ENTRY LENGTH. TRY 


00486 










* 


FOR A MATCH. B=SIZE; ( SP ) = TABLE PTR 


00437 










* 










00488A 


F9C5 


DE 


Dl 


A 


SRCH03 LDX 




STRTX 


INIT PTR TO INPUT STRING 


004S9A 


F9C7 


DF 


D9 


A 




STX 




TEMPA 




00490A 


F9C9 


38 






SRCH04 PULX 






RESTORE CURRENT TABLE PTR 


00491 A 


F9CA 


08 








INX 








00492A 


F9CB 


A6 


00 


A 




LDAA 




0,X 


GET TABLE CHAR 


00493A 


F9C0 


3C 








PSHX 






SAVE FOR NEXT LOOP 


00434A 


F9CE 


DE 


D9 


A 




LDX 




TEMPA 


GET INPUT PTR 


00495A 


F9D0 


At 


00 


A 




CMPA 




0,X 


INPUT CHAR=TABLE CHAR? 


00496A 


F9D2 


27 


03 


F9D7 




BEQ 




SRCH05 


YES 


00497A 


F9D4 


38 








PULX 






NO, CLEAN STAACK 


0049SA 


F9D5 


20 


CA 


F9A1 




BRA 




SRCH01 


GET NEXT TABLE VALUE 


00499 










* 


HERE WHEN 


A 


CHARACTER MATCHED 


00500A 


F9D7 


09 






SRCH05 DEX 






DEC INPUT PTR FOR NEXT TIME 


00501 A 


F9D8 


DF 


D9 


A 




STX 




TEMPA 




00502A 


F9DA 


5A 








DECB 






COMPARED ALL CHARS? 


00503A 


F9DB 


26 


EC 


F9C9 




BNE 




SRCH04 




00504 










* 










00503 










* 


WE HAVE A 


MATCH! GO " 


TO THE ROUTINE 


00506 










* 










00507A 


F9DD 


33 








PULX 






GET TABLE PTR 


0050SA 


F9DE 


08 








INX 






POINT TO ADDRESS IN TABLE 


00509A 


F9DF 


9E 


Dl 


A 




LDS 




STRTX 


CLEAN STACK 


0051OA 


F9E1 


EE 


00 


A 




LDX 




0,X 


GET ROUTINE ADDRESS 


0051 I A 


F9E3 


96 


D6 


A 




LDAA 




BBLK 


LOAD TERMINATOR 


00512A 


F9E5 


AD 


00 


A 


MAIN08 JSR 




0,X 


GO TO ROUTINE 


005 I 3 A 


F9E7 


2B 


D4 


F9BD 




BME 




MERROR 


ERROR RETURN 


0051 4A 


F9E3 


20 


D8 


F3C3 




BRA 




MAIN07 


GO BACK TO MAIN 


00515 










********** TERMINATOR ! 


SUB 


00516 










* 










00517 










* 


CHECK INPUT 


CHAR FOR 


A TERMINATOR 


00518 










* 


TERMINATORS-ARE: , 


BLANK <CR> 


00519 










* 


CHAR IN 


A 


ON CALL 
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00520 










* 


2 


BIT SET 


ON EXIT 


IFF CHAR WAS 


00521 










* 


TERMINATOR 




00522 










*********** 






00523A 


F9EB 


Si 


2C 


A 


TERM 


CMPA 


*'/ 


COMMA? 


00524A 


F9ED 


27 


0A 


F9F9 






BEG 


TERM02 




00525A 


F9EF 


SI 


20 


A 






CMPA 


*' 


BLANK? 


00526A 


F9F1 


27 


OS 


F9F9 






BEG 


TERM02 




00527A 


F9F3 


SI 


0D 


A 






CMPA 


#«D 


CR? 


0052SA 


F9F5 


27 


02 


F9F9 






BEQ 


TERM92 




00529A 


F9F7 


SI 


2D 


A 






CMPA 


#'- 


ALLOW MINUS 


00530A 


F9F9 


39 






TERM02 


RTS 




RETURN WITH 


00531 










* 











00533 

00534 

00535 

00536 

00537A F9FA SD 11 FA0D VALINP BSR 

0053SA F9FC 2F 0A FA0S VALIN 

00539A F9FE CI 04 A 



* VALIDATE INPUT - ENTRY VALINP READS INPUT 

* ALLOW 4 DIGIT INPUT W/LEADING 0-'S NOT COUNT 

* SET CC NEG IF ERROR 



00540A FA00 2F 3A FA3C 
00541 A FA02 7D 00DC A 
0O542A FA05 27 35 FA3C 
00543A FA07 53 
00544A FA0S 33 



BLE 
CMPB 
BLE 
TST 
BEG 
. COMB 
VALRTN RTS 



INPUT 

VALRTN 

#4 

INPUTC 

OVFL 

INPUTC 



READ HEX 



LEADING ZEROES? 



SET C NEG FOR ERR RTN 





00546 










***** INPUT - 1 


READ ROUTINE 


en 


00547 










£ INPUT ENTRY 


SET B=0, 


READ A-F AS HEX 


0054S 










* INPUTA ENTRY SET B#0 


, READ A-F AS ALPHA 




00549 










* X= HEX NUMBER ( ALSO 


IN TEMPA > 




00550 










* A=LAST CHAR 


READ ( NON-HEX ) 




0O551 










* B= * 


HEX CHAR READ C TEMP > 




00552 










* OVFL 


♦ IF 


OVERFLOW 


FROM LEFT SHIFT 




00553 










* CC SET FROM 


LDAB BEF 


ORE RETRN 




00554 










* CC SET NEG 


IF ABORT 






00555A 


FA09 


C6 


F0 


A 


INPUTA 


LDAB 


#»F0 


READ A-F AS ALPHA 




0055GA 


FA0B 


20 


01 FA0E 




BRA 


INPUT2 






00557A 


FA0D 


5F 






INPUT 


CLRB 




READ A-F AS HEX 




0O55SA 


FA0E 


CE 


0000 


A 


INPUT2 


LDX 


#0 


INIT VAR TO 




00555-A 


FA11 


DF 


D9 


A 




STX 


TEMPA 






00560A 


FA 13 


DF 


DB 


A 




STX 


TEMP 


TTEMP, OVFL 




00S61A 


FA15 


CE 


00D9 


A 




LDX 


♦TEMPA 


X PNT TO WH INPUT CHI 




005G2A 


FA1S 


SD 


25 FA3F 


INPUTS 


BSR 


INHEX 


READ A CHAR 




00563A 


FA1A 


2B 


17 FA33 




BMI 


INPUT7 


JMP IF NOT HEX 




00564A 


FA1C 


C6 


04 


A 




LDAB 


#4 






00565A 


FA1E 


GS 


01 


A 


INPUTS 


ASL 


1 /X 






00566A 


FA20 


G3 


00 


A 




ROL 


0,X 






0O5G7A 


FA22 


24 


03 FA27 




BCC 


INPUTS 


SET FLAG IF OVERFLOW 




0056SA 


FA24 


7C 


00DC 


A 




INC 


OVFL 






00569A 


FA27 


5A 






INPUTS 


DECS 




LEFT SHIFT 4 BITS 




0057OA 


FA2S 


26 


F4 FA1E 




BNE 


INPUTS 






00571 A 


FA2A 


AA 


01 


A 




OR A A 


1 , x 


ADD IN LSB 




00572A 


FA2C 


A7 


01 


A 




STAA 


1 >x 






00573A 


FA2E 


7C 


O0DB 


A 




INC 


TEMP 






00574 A 


FA31 


20 


E5 FA1S 




BRA 


I MPUT3 






00575A 


FA33 


SI 


IS 


A 


INPUT7 


CMPA 


♦CNTLX 


CHK IF ABORT 




00576A 


FA35 


26 


03 FA3A 




BNE 


INPUT9 


SKIP IF NOT ABORT 




00577 






FA37 


A 


NOTHEX 


EQU 


* 


ERROR ENTRY FROM INHI 



0057SA FA37 C6 FF 
00579A FA39 39 
005S0A FA3A DE D9 
005S1A FA3C D6 DB 
005S2A FA3E 39 



005S4 

005S5 

005S6 

00587 

005SS 

00589A 

00590A 

00591A 

00592A 

00593A 

00594A 

00595A 

00596A 

00597A 

00598A 

00599A 

00600A 

00601A 

00602A 

00603A 



A LDAB 

RTS 
A INPUT9 LDX 
A INPUTC LDAB 

RTS 



FA3F 

FA42 
FA44 
FA46 
FA4S 
FA4A 
FA4B 
FA4D 
FA4F 
FA51 
FA53 
FA55 
FA57 
FA53 
FA5A 



A 

A 

FA37 

A 



S0 07 

S4 OF 

5F 

39 



00605 
00606 
00607 

0060S 

00609 

00610 

00611 

00612 

00613 

00614 

00615 

00616 

0061 ? 

0061 SA 

00619A 

00620A 

00621A 

00622A 

00623A 

00624A 

00625A 

00626A 

00627A 

00628A 

00S29A 

0O630A 

00631 A 

00632A 

00633A 

00634A 

00635A 



#tFF SET CC NEG 



TEMPA SET REG X=* READ 

TEMP SET REG B=# HEX CHAR READ 



*************** INHEX **************** 

* INPUT 1 HEX CHAR, CONVERT TO HEX 

* RETURN HEX IN REG A 



BD FS06 
SI 30 
2B Fl 
SI 39 
2F 0D FA57 
5D 

2B EA FA37 
Si 41 
2B E6 FA37 
SI 46 A 
2E E2 FA37 
A 



* REG 

* REG 
INHEX 



A 



A IN1HG 



B = O 
B < 
JSR 
CMPA 
BMI 
CMPA 
BLE 
TSTB 
BMI 
CMPA 
BMI 
CMPA 
BGT 
SUBA 
ANDA 
CLRB 
RTS 



CONVERT 
LEAVE A- 

INCHNP 

#'0 

NOTHEX 

#'3 

IN1HG 

NOTHEX 

#'A 

NOTHEX 

*'F 

NOTHEX 

#7 

#»F 



A-F TO HEX 
F ALPHA 

( INHEX ) MUST BE NEG 



GOOD 

A-F NUMBERS? 



AFTER FIND 0-9 CLEARR 
GOOD HEX - RTN 



FA5B SD 
FA5D 2F 
FA5F DE 
FA61 61 
FA63 27 
FA65 SI 
FA67 26 
FA69 SD 
FA6B DF 
FA6D 3C 
FA6E 5F 
FA6F SD 
FA71 3S 
FA72 2B 
FA74 27 
FA76 D6 
FA7S BD 
FA7B 2B 



3D F9FA 
52 FABi 
A 
A 



D9 
2F 



************* MEMORY EXAMINE/CHANGE *************** 

* PRINT VALUE AT <ADR>, MAINTAIN PNTR 

* M < ADR X SPACE ) 

* < ADR >/ 

* <ADR> IS 1-4 HEX, NOT COUNTING LEADING ZEROES 

* SUBCOMMANDS 

* <DATA> MODIFY VALUE AT CURRENT LOC 

* SP I NCR POINTER, PR VALUE AT NEXT ADR 

* , INCR PNTR, NO PRINT 
I NCR PNTR, PR ADR & VALUE ON NEXT LINE 
DECR PNTR, PR ADR & VALUE ON NEXT LINE 

* / PR CURRENT ADR AND VALUE 

* CR TERMINATE MEMxEXAM COMMAND 
MEMORY BSR VALINP 

NOT HEX - ERROR 
RRESET FOR ADR/ 
/ DELIMITER? 



MEM01 



04 FA63 



A 
FABI 
FAE1 



MEM02 
MEM25 



9C FA0D 

3F FAB3 
07 FA7D 
DA A 
FAF7 A 
36 FAB3 



LF 

UA 

/ 

CR 

BSR 

BLE 

LDX 

CMPA 

BEG 

CMPA 

BNE 

BSR 

STX 

PSHX 

CLRB 

BSR 

PULX 

BMI 

BEQ 

LDAB 

JSR 

BMI 



MERRTN 

TEMPA 

*'/ 

MEM02 

#*20 

MERRTN 

0UT2H 

PNTR 



INPUT 

RETRN 

MEM03 

TEMPA+1 

STRCHK 

RETRN 



SPACE? 



PRINT VALUE 



A-F NUMBER FLAG 
X=ADR 

IF NEG - ABORT 

JUMP IF NOT HEX 

GET LAST BYTE 

STORE B AND CHK FOR CHG 

ERR IN CHG MEMORY 
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Ol 



&0636A 

00637A 

00638 

00639A 

00640A 

00641A 

00642A 

0O643A 

00644A 

00645A 

00646A 

00647A 

0064SA 

00649A 

00650A 

00651 A 

00652A 

00653A 

00654A 

00655A 

00656A 

00657A 

00656A 

00659A 

00660 

00661 A 

00662A 

00G63A 

00664A 

ooees 

00666A 
00667A 

00669 

00670 

00671 

00672 

00673 

00674 

00G75 

00676A 

00677A 

0067SA 

00675A 

00680A 

00661 A 

006S2A 

00633A 

00684A 

00685A 

00636A 

00G87A 

00G3SA 

00689A 

0069OA 

0069 I A 

00G92A 



FA7D 
FA7F 

FA81 
FAS3 
FA85 
FA86 
FA83 
FA8A 
FA3C 
FA8D 
FA8F 
FA91 
FA93 
FA94 
FA97 
FA99 
FA9B 
FA9D 
FA9E 
FAA0 
FAA2 
FAA4 
FAA6 

FAA3 
FAAB 
FAAD 
FAAF 

FABl 
FAB3 



0D A MEM03 
32 FAB3 

2C A 
03 FASS 

E3 FA6B 

20 A MEM33 

03 FASF 

DA FA69 

0A A MEM04 

06 FA99 

FB16 A 

0D FAA6 

5E A MEM06 

03 FAAO 



04 FAA4 

2F 

0D FAB1 

6C FBI 2 MEM 10 

D7 A 

FAA8 

O0D7 A 

2B FADS 

D7 A 

B8 FA69 



MEM08 



MEM12 
MEMSL 



CMPA 
BEQ 
= ADR 
CMFA 
BNE 
INX 
BRA 
CMPA 
BNE 
INX 
BRA 
CMPA 
BNE 
INX 
JSR 
BRA 
CMPA 
BNE 
DEX 
BRA 
CMPA 
BNE 
BSR 
STX 
EQU 
LDX 
BSR 
LDX 
BRA 



#*D 
RETRN 
OF CURRENT 

#' t 
MEM33 

MEM25 

#»20 

MEM04 



CR? 

END MEM/EX? 

BYTE 

COMMA? 

OPEN NEXT LOC, DO NOT PR 

SPACE? 



MEM02 

#SA 

MEM06 

PCR 
MEM12 
#*5E 
MEM08 

MEM10 

♦ '/ 

MERRTN 

PCRLF 

PNTR 

X 

#PNTR 

0UT4HS 

PNTR 

MEM02 



FF 



MERRTN 
RETRN 



LDAA *»FF 
RTS 



INCR PNTR 
GO PR VALUE 

LF? 



OUT CR, NO LF 
PR ADDR, SPACE 
UA? 



SLASH? 

PR CR/'LF 

SAVE NEW PNTR ADR 

FOUND / AS INSTR 

X PNT TO PR OBJECT 

ADR,SF 

RESET X TO PNTR 



SET CC NEG FOR RTN 



FAB4 

FAB7 
FAB9 
FABC 
FABE 
FAC0 
FAC2 
FAC3 
FAC5 
FAC7 
FAC9 
FACB 
FACD 
FACF 
FAD2 
FAD4 
FAD6 



FE57 

D9 

0001 

D7 

7F 



XXXXXXXXXX OFFSET XXXXXXXXXX 

XO < ADR. > CALCULATES OFFSET FROM LAST MEMORY REF 

XWHICH SHOULD BE LOC OF REL ADR OF BR INSTR, TO 

*TNE <ADR) SPECIFIED 

X IF A=0, B< 80 DISTANCE CHK 

X IF A=FF, B>7F 

x 

OFFSET 



22 05 FAC7 



06 FACB 
EA FAB1 
FF A 



DB A 
43 FBI 2 
O0DB A 
07 FADB 
3C FB12 
D0 FAA8 



0FF6 



JSR 

LDD 

SUBD 

SUED 

CMPB 

BHI 

TSTA 

BEQ 

BRA 

CMPA 

BNE 

STAB 

BSR 

LDX 

BSR 

BSR 

BRA 



RD2ADR 

TEMP A 

#1 

PNTR 

#*7F 

0FF4 

0FF6 

MERRTN 

#«FF 

MERRTN 

TEMP 

PCRLF 

#TEMP 

0UT2HS 

PCRLF 

MEMSL 



READ 2 ADDR 



0FFSET=T0-CFR0M+1 ) 
CHK IF VALID DISTANCE 



POSITIVE DISTANCE? 



NEG DISTANCE 



PR 
PR 



OFFSET 

LF AFTER USER CR 



00694 
00695 
00696 
00697 



XXXXXXXXXXXXXXXX 0UT4HS XXXXXXKXXXXXXXK 

X PRINT 2 BYTES AND SPACE 

X REG X ~ ADR OF 1ST BYTE 

X X WILL BE INCREMENTED BY 1 



00698A FAD8 8D 07 FAEl 0UT4HS BSR 



0UT2H 



00699A FADA 08 
00700 



INX 
FALL THRU 0UT2HS 



GET NEXT BYTE 



0©702 XXXXXXXXXXXXXXX 0UT2HS XXXXXXXXXXXXXXXX 

00703 x PRINT 1 BYTE AND SPACE 

00704 * REG X - ADR OF BYTE 
00705A FADB 8D 04 FAEl 0UT2HS BSR 0UT2H 1 BYTE 
00706A FADD 86 20 A SPACE LDAA *«20 PR SPACE 
00707A FADE 20 3A FB1B BRA XOUTCH PR 1 CHAR 8c RTN 



00709 

00710 

0071 1 

0071 2A FAEl AG 

0071 3A FAE3 36 

0071 4A FAE4 8D 

0071 5 A FAE6 32 



XXXXXXXXXXXXXXX 0UT2H XXXXXXXXXXXXXXX 
X PRINT I BYTE 
X REG X - ADR OF BYTE 
A 0UT2H LDAA 0,X 

PSHA READ BYTE ONLY ONCE 

FAE9 BSR OUTHL 
PULA 



00716A FAE7 20 04 FAED 

00718 

00719 

00720A FAE9 44 

00721 A FAEA 44 

00722A FAEB 44 

00723A FAEC 44 



BRA 



OUTHR 



RIGHT 



GO TO / ROUTINE 



00725 

00726 

00727A FAED 84 0F 

0072SA FAEF SB 90 

00729A FAF1 19 

00730A FAF2 89 40 

00731 A FAF4 19 

00732A FAF5 20 24 FB1B 



00734 

00735 

00736 

00737A FAF7 E7 

00738A FAF9 El 

00739A FAFB 27 

O0740A FAFD CE 

00741 A FB0O 8D 

00742A FB02 20 

00743 

00744 

00745 

0074S 

00747 

00748A FB04 8D 

00745A FB06 03 

00750A FB07 AG 

00751 A FB09 81 



XXXXXXXXXXXXXXX OUTHL XXXXXXXXXXXXXXX 

X CONVERT LEFT 4 BITS OF BYTE TO DISPLAY 

OUTHL LSRA OUTPUT LEFT 4 BINARY BITTS 

LSRA 

LSRA 

LSRA 

XXXXXXXXXXXXXXX OUTHR XXXXXXXXXXXXXXX 

X CONVERT RIGHT 4 BITS OF BYTE AND PRINT 

OUTPUT RIGHT 4 BITS 
CONVERT TO DISPLAY 



A 


OUTHR 


ANDA 


*»F 


A 




ADDA 
DAA 


*S90 


A 




ADCA 


*S40 






DAA 




B 




BRA 


XOUTCH 



PR 1 CHAR & RTN 

XXXXXXXXXXXXXXX STRCHK XXXXXXXXXXXXXXX 
X STORE B AT 0,X & VERIFY STORE XXXXX 

DETECTS NON-EXISTENT MEMORY, ROM, PROTECTED RAM 



00 A 
00 A 
B6 FAB3 
FF9B A 
0C FB0E 
AD FAB1 



STRCHK STAB 
CMPB 
BEO 
LDX 
BSR 
BRA 



0,X 

RETRN 

♦NOCHG 

PDATA 

MERRTN 



STORE B 

VERIFY MEMORY CHG 

OK 

MSG 

SET CC NEG 



XXXXXXXXXXXXXXX PDATA1 XXXXXXXXXXXXXXX 

X PRINT DATA STRING 

X REG X POINTS TO PRINT ARRAY 

X X WILL BE INCREMENTED 

XOUTCH CALL OUTPUT ROUTINE 

X=ADR OF OUTPUT ARRAY 

0,X GET CHAR 

*4 EOT*? 



15 FB1B PDATA2 BSR 
INX 
00 A PDATA1 LDAA 
04 A CMPA 
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00752A FB0B 26 F7 FB04 
00753A FBOD 39 



BNE 
RTS 



PDATA2 



00755 **************** PDATA *************** 

00756 * CR/LF THEN PRINT DATA STRING 

00757A FB0E 8D 02 FB12 PDATA BSR PCRLF CR/LF, DATA STRING 
0075SA FB10 20 F5 FB07 BRA PDATA1 



00760 
00761 
00762 
00763 A FBI 2 86 0A 



*************** PCRLF *************** 

* OUTPUT CR/LF 

* SAVE, RESTORE REG X 

A PCRLF LDAA #tA OUTPUT LF 



00764A FBI 4 SD 05 FB1B 



BSR 



XOUTCH PR & RTN 



00766A FBI 6 86 0D A PCR LDAA 

00767A FB18 SD 01 FB1B BSR 

00768A FBI A 4F CLRA 

00769A FB1B 7E F.809 A XOUTCH JMP 



*»D 
XOUTCH 



DO CR 
PR & RTN 



OUTPUT & RTN 





00771 










*********** 


PRINT REGISTERS ********** 




00772 










* PR REGISTERS ACROSS 


PAGE 




00773 










* PR 2ND LINE REG, READING INPUT 




00774 










* 


SPACE 


- PR CONTENTS REG, GO TO NEXT REi 




00775 










* 


HEX,SF 


' - MODIFY 


REG, GO TO NEXT REG 




00776 










* 


WEXpCR 


: - MODIFY 


REG, RTN 




00777 










* 


CR OR 


OTHER COMBINATION - NO CHG, RTN 




00778A 


FB1E 


SD 


66 


FB86 


REGSTR BSR 


PREGS1 






00773A 


FB20 


SD 


F0 


FB12 




BSR 


PCRLF 


CR/LF AFTER REG PRINT 


Ol 


00780A 


FB22 


CE 


00DD A 


REGS1 


LDX 


♦SAVSTK 


PSEUDO REGS 


o> 


00781 A 


FB25 


5F 








CLRB 




INIT OFFSET 




00782A 


FB26 


3C 






REGS2 


PSHX 




SAVE REG PNTR 




00783A 


FB27 


CE 


FFB5 A 




LDX 


♦ARRAY 


CONTAINS REG NAMES 




00784A 


FB2A 


3A 








ABX 




ADD OFFSET 




00785A 


FB2B 


A6 


00 


A 




LDAA 


0,X 


GET CURRENT REG 




00 786 A 


FB2D 


SD 


62 


FB91 




BSR 


OUTDA 


PR REG NAME, DASH 




00787A 


FB2F 


AG 


01 


A 




LDAA 


I , x 


♦BYTES FLAG 




0078SA 


FB31 


38 








PULX 




REG PNTR 




00783A 


FB32 


7D 


00D0 A 




TST 


CT 


PRINT OR MOD? 




00730A 


FB35 


27 


0B 


FB42 




BEQ 


REGS3 


MODIFY 




00791A 


FB37 


4D 








TSTA 




CHK # BYTES 




00792A 


FB38 


27 


03 


FB3D 




BEQ 


REGS4 






00793A 


FB3A 


3D 


A5 


FAE1 




BSR 


0UT2H 


PR 2 HEX DIGITS 




00794A 


FB3C 


08 








INX 








00795A 


FB3D 


SD 


9C 


FADB 


REGS4 


BSR 


0UT2HS 


PR 2 HEX + SP_ 




0O796A 


FB3F 


08 








INX 








00797A 


FB40 


20 


04 


FB46 




BRA 


REGS6 






00798A 


FB42 


37 






REGS3 


PS-HB 




SAVE OFFSET 




00733A 


FB43 


SD 


08 


FB4D 




BSR 


INDAT 


GO READ INPUT 




00300A 


FB45 


33 








PULB 




RETRIEVE OFFSET 




00801 A 


FB46 


CB 


02 


A 


REGS6 


ADDB 


♦ 2 


UPDATE 




00 8 02 A 


FB48 


CI 


0C 


A 




CMPB 


#12. 


ALL REG CHKED 




00 8 03 A 


FB4A 


£6 


DA 


FB26 




BNE 


REGS2 


NO - LOOP 




00804 A 


FB4C 


39 








RTS 








00806 










*************** INDAT 


*************** 




00807 










* INPUT FOR 


REG MOD IF) 


[CATION 




0080SA 


FB4D 


36 






INDAT 


PSHA 




SAVE LEN FLG 




00303A 


FB4E 


3C 








PSHX 




REG PNTR ADR 



0081 0A 


FB4F 


BD 


FA0D A 




JSR 


INPUT 




00811 A 


FB52 


3S 








PULX 




RESTORE 


0081 2A 


FB53 


33 








PULB 






00813A 


FB54 


2B 


IB 


FB71 




BMI 


PRERR 


ABORT 


0081 4 A 


FB56 


27 


ID 


FB75 




BEQ 


INDAT2 


NOT HEX 


0081 5A 


FB58 


BD 


F9EB A 




JSR 


TERM 


ACCEPT SP , CR 


0081 6A 


FB5B 


26 


14 


FB71 




BNE 


PRERR 


RTN TO MAIN 


00817A 


FB5D 


5D 








TSTB 




CHK LENGTH FLAG 


00818A 


FB5E 


27 


09 


FB69 




BEQ 


INDAT0 




00S19A 


FB60 


36 








PSHA 




SAVE LAST CHAR READ 


00820A 


FB61 


DC 


D9 


A 




LDD 


TEMPA 


GET 2 BYTE READ IN 


00821 A 


FB63 


ED 


00 


A 




STD 


0,X 




00S22A 


FB65 


32 








PULA 




RESTORE LAST CHAR 


00823A 


FB66 


08 








INX 




I NCR REG PNTR 


00824A 


FB67 


20 


04 


FB6D 




BRA 


INDAT5 




00825A 


FB69 


D6 


DA 


A 


INDAT0 


LDAB 


TEMPA-H 


1 BYTE CHANGE 


00S26A 


FB6B 


E7 


00 


A 




STAB 


0,X 




00827A 


FB6D 


81 


0D 


A 


INDAT5 


CMP A 


♦ »D 


CR - RTN 


00323A 


FB6F 


26 


13 


FB34 




BNE 


INDAT1 




00829A 


FB71 


38 






PRERR 


PULX 




POP RTN ADR 


00S30A 


FB72 


33 








PULB 




REMOVE FLAG FROM STK 


00S31A 


FB73 


4F 








CLRA 




NO BELL ON RETURN 


00 832 A 


FB74 


39 








RTS 




RTN TO MAIN 


00333A 


FB75 


81 


20 


A 


INDAT2 


CMPA 


♦ S20 


NO HEX, SPACE 


00834A 


FB77 


26 


F8 


FB71 




BNE 


PRERR 


RTN TO MAIN 


00S35A 


FB73 


5D 








TSTB 




2 OR 4 CHAR 


00S36A 


FB7A 


26 


05 


FB81 




BNE 


INDAT4 




00837A 


FB7C 


BD 


FADB A 




JSR 


0UT2HS 


PR 2 CHAR, SPACE 


00S38A 


FB7F 


20 


03 


FB84 




BRA 


INDAT1 




00S39A 


FBS1 


BD 


FADS A 


INDAT4 


JSR 


0UT4WS 


PR 4 CHAR, SPACE 


00840A 


FBS4 


08 






INDAT1 


INX 




ADJUST REG PNTR 


00841 A 


FBS5 


33 








RTS 


* 





00S43 

00344 

00845A FB86 3D 8A FB12 PREGS1 

00846A FB8S 7C 00D0 A PREGS 

00S47A FBSB SD 95 FB22 

00S48A FBSD 7F 00D0 A 

00S49A FB90 39 



**************** PREGS *************** 

* PRINT REGS - P,X,A,B,C,S 
PCRLF 

CT SET FLAG-PRT REG 
REGS1 GO PRINT 
CT RESET FLAG 



BSR 
INC 
BSR 
CLR 
RTS 



00851 *************** OUTDA *************** 

00852 * PRINT REG A/ - 

00853A FB91 SD 02 FB95 OUTDA BSR 20UTCH OUTPUT REG A 
00854A FB93 86 2D A LDAA ♦'- DASH 

00855A FB35 7E FS09 A ZOUTCH JMF OUTCH 



00S57 

00858 

00859 

00S60 

00861 

00862 

00 36 3 A 

00SS4A 

00S65A 

00S66A 

O0367A 



********** BRKPNT ********** 

* COME HERE AFTER RECOGNIZE B<DELIM> 

* B DISPLAY ALL 

* S - REMOVE ALL 

* B <ADR> INSERT BRKFNT 

* B -<ADR> REMOVE BRKPNT 



FB98 
FB9A 
FB9C 
FB9E 
FBA0 



0D 

2D 
2D 
4C 



A 
FBC9 

A 
FBEC 



BRKPNT 



CMPA 

BEQ' 

CMPA 

BEQ 

JSR 



#fD 
PRBRK 



DELBRK 
VALINP 



CR? 

PRINT 

DELETE? 
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00868A 


FBA3 


2B 


44 FBE3 




BMI 


G0X2 


ABORT? 




00369A 


FBA5 


26 


06 FBAD 




BNE 


BP02 


HEX? 




00870A 


FBA7 


81 


2D 


A 




CMPA 


♦ '- 


DELETE 




00871A 


FBA3 


27 


41 FBEC 




BEQ 


DELBRK 






00872A 


FBAB 


20 


3C FBE9 




BRA 


G0X2 


ERR IF NOT DEL 




00 87 3 A 


FBAD 


81 


0D 


A 


BP02 


CMPA 


♦ *D 


CR 




00S74A 


FBAF 


26 


38 FBE9 




BNE 


BERRTN 


ERROR RTN 




00875A 


FBB1 


8D 


26 FBD9 




BSR 


BRKTAB 


IN TABL 




00S76A 


FBB3 


27 


14 FBC3 




BEQ 


PRBRK 


YES - OK RTN 




00877A 


FBB5 


CE 


00E6 


A 




LDX 


#BKADR 






00878A 


FBB8 


EC 


00 


A 


BP04 


LDD 


0,X 






00S73A 


FBBA 


27 


03 FBC5 




BEQ 


BP06 


AVAIL SP? 




oesse-A 


FBBC 


08 








I NX 




CHK NEXT POSN 




00381 A 


FBBD 


08 








I NX 








00882A 


FBBE 


8C 


00EE 


A 




CPX 


♦OPCODE 


END TABL? 




00333A 


FBC1 


26 


F5 FBB8 




BNE 


BP04 






00884A 


FBC3 


20 


24 FBES 




BRA 


BERRTN 


NO AVAIL SP 




00885A 


FBC5 


DC 


D3 


A 


BP06 


LDD 


TEMPA 


GET ADR 




00836A 


FBC7 


ED 


00 


A 




STD 


0,X 


STORE IN TABLE 




00887 










* FALL 


THRU 


AND PR BRKPNTS 




00888 










* PRINT BREAKPOINTS 






00383A 


FBC9 


BD 


FB12 


A 


PRBRK 


JSR 


PCRLF 






00830A 


FBCC 


CE 


00E6 


A 




LDX 


♦BKADR 






00S31A 


FBCF 


C6 


04 


A 




LDAB 


#4 






00332A 


FBD1 


BD 


FADS 


A 


PRBRK2 


JSR 


0UT4HS 






00893A 


FBD4 


08 








I NX 




INCR PNTR TO Bl 




00834A 


FBD5 


5 A 








DECB 








00S35A 


FBD6 


26 


F9 FBD1 




BNE 


PRBRK2 






00836 A 


FBD8 


33 








RTS 








00898 










* SEARCH BREAKPOINT TABLE 




00399 










* RETURN -1 


IF BRKPNT 


NOT IN TABL 




00900 










* OTHERWISE 


REG X POINT TO BRKPNT IN ' 




00301A 


FBD9 


CE 


00E6 


A 


BRKTAB 


LDX 


♦BKADR 






00302A 


FBDC 


DC 


D9 


A 


TAB1 


LDD 


TEMPA 


GET PC 




00903A 


FBDE 


A3 


00 


A 




SUBD 


0,X 






00904A 


FBE0 


27 


09 FBEB 




BEQ 


BRTN 






00305A 


FBE2 


08 








I NX 








OS906A 


FBE3 


03 








I NX 








00907A 


FBE4 


ac 


00EE 


A 




CPX 


♦OPCODE 


CMPAR TO END Ti 




00903A 


FBE7 


26 


F3 FBDC 




BNE 


TAB! 






00909 






FBE9 


A 


G0X2 


EQU 


* 


ERROR RETURN El 




0031 0A 


FBES 


86 


FF 


A 


BERRTN 


LDAA 


♦ «FF 






■00311 A 


FBEB 


33 






BRTN 


RTS 








00913 










* DELETE BRKPNT 






0091 4A 


FBEC 


BD 


F9FA 


A 


DELBRK 


JSR 


VALINP 






0091 5A 


FBEF 


2B 


F3 FBE9 




BMI 


BERRTN 


ABORT OR ERR? 




0031 6A 


FBF1 


81 


0D 


A 




CMPA 


#«D 


CR? 




0031 7A 


FBF3 


26 


F4 FBE3 




BNE 


BERRTN 






0031 SA 


FBF5 


5D 








TSTB 




HEX? 




0031 3A 


FBF9 


2 b 


0D FC05 




BNE 


DBRKG 


JMP IF SO 




00920A 


FBF3 


CE 


00E5 


A 




LDX 


♦BKADR-1 






0032 1 A 


FBFB 


CG 


0C 


A 




LDAB 


#1 2 


BRKPNT TABLE 




00922A 


FBFD 


08 






DBRK2 


I NX, 








00923A 


FBFE 


GF 


00 


A 




CLR 


, X 






00924A 


FCO0 


5A 








DECB 








00925A 


FC01 


26 


FA FBFD 




BNE 


DBRK2 
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00926A FC03 20 C4 FBC9 

00927 * DELETE 

0O923A FC05 3D D2 FBD9 DBRK6 

00323A FC07 26 E0 FBES 

00S30A FC03 ED 00 A 

00331 A FC0B 6F 08 A 

00932A FC0D 20 BA FBC3 



BRA 


PRBRK 




E 1 


BRKPNT 




BSR 


BRKTAB 




BNE 


BERRTN 




STD 


0,X 


D=0 FROM BRKTAB 


CLR 


8,X 


CLR OP CODE 


BRA 


PRBRK 





00334 












********** C< 


*LL ********** 




00935 












* 


CALL 


USER ROUTINE AS 


SUBR 




00336 












* 


USER 


RTS RETURNS TO I 


10N I TOR- 


00337 












* 


STK 


PNTR NOT GOOD ON 


RETURN 


00938 












* 


C < ADR > ( CR > OR C C CR > 




00939A 


FCOF 


97 


F7 




A 


CALL 


STAA 


CALLF 


SET 


FLAG ♦ 


00941 












********** G 


********** 




00942 












* 


GO EXECUTE 


USER CODE 






00943 












* 


GC CR ) OR G 


< ADR> 






0OS44A 


FC11 


31 


0D 




A 


GOXQT 


CMPA 


*«D 


CR 




00S45A 


FC13 


27 


0E 


FC23 






BEQ 


G0X6 


XQT 


FROM CURRENT Pi 


00346A 


FC15 


BD 


F9FA 


A 






JSR 


VALINP 






00S47A 


FC18 


2F 


CF 


FBE9 






BLE 


G0X2 






00943A 


FC1A 


31 


0D 




A 






CMPA 


#SD 


CR? 




00949A 


FC1C 


26 


CB 


FBE9 






BNE 


G0X2 


ERR 




00950A 


FC1E 


7F 


00F5 


A 






CLR 


EXONE 


SEE 


BRKPNT, IF ANY 


00951 A 


FC21 


DF 


DD 




A 






STX 


SAVSTK 


SET 


USER PC 


00352A 


FC23 


BD 


FB12 


A 


G0X6 


JSR 


PCRLF 






00953A 


FC26 


96 


F7 




A 






LDAA 


CALLF 


CALL 


. CMD? 


00954A 


FC2S 


27 


0E 


FC38 






BEQ 


G0X7 


NO 




00355A 


FC2A 


7F 


00F7 


A 






CLR 


CALLF 






00956A 


FC2D 


DE 


E4 




A 






LDX 


SPSAVE 


GET 


USER STK 


00957A 


FC2F 


CC 


FC5S 


A 






LDD 


♦ CRTS 


RTN 


TO MONITOR ADR 


0095SA 


FC32 


03 












DEX 








00353A 


FC33 


ED 


00 




A 






STD 


0,X 


STOR ON USER STK 


00S60A 


FC35 


09 












DEX 




ADJUST USER STK 


00361 A 


FC36 


DF 


E4 




A 






STX 


SPSAVE 


RESAVE STK 


00962 












* 


NOW 


GO XQT 


USER SUBR 






00363A 


FC38 


96 


F5 




A 


G0X7 


LDAA 


EXONE 


STOPPED ON BRKPNT 


00964A 


FC3A 


26 


03 


FC3F 






BNE 


G0X3 






00965A 


FC3C 


BD 


FD36 


A 






JSR 


SETB 






00966A 


FC3F 


20 


15 


FC56 


GOXS 


BRA 


BARMS 







00968 ********** (PERIOD) ********** 

00969 * TRACE 1 INSTRUCTION 
00370A FC41 CE 0001 A NEXT LDX ^1 
O0371A FC44 20 03 FC4F BRA TRACE2 



00973 








********** 1 


r . ********** 


00974 








* T <HEX> - 


TRACE <HEX> INSTTR 


00375A 


FC46 


81 


0D A 


TRACE 


CMPA 


#*D 


T( CR > ? - TRACE 1 


00376A 


FC43 


27 


F7 FC41 




BEQ 


NEXT 




00377A 


FC4A 


BD 


FA0D A 




JSR 


INPUT 


GET < HEX> 


00378A 


FC4D 


2F 


3A FBES 




BLE 


G0X2 


RTN IF ABORT OR NOT HEX 


00373A 


FC4F 


DF 


F3 A 


TRACE2 


STX 


NTRACE 


STORE <HEX> 


00380A 


FC51 


27 


96 FBE3 




BEQ 


G0X2 


RTN IF TRACE = 


009S1A 


FC53 


7C 


00F5 A 




INC 


EXONE 


XQT 1 INSTR 


003S2A 


FC56 


20 


62 FCBA 


BARMS 


BRA 


ARMSTK 
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00 



00984 










00985 










00986 










00987 










00988 










00989A 


FC58 


36 






00990A 


FC59 


07 






00991 A 


FC5A 


97 


E3 


A 


00992A 


FC5C 


32 






00993A 


FC5D 


9F 


E4 


A 


00994A 


FC5F 


8E 


O0CF 


A 


00995A 


FC62 


DD 


El 


A 


00996A 


FC64 


DF 


DF 


A 


00997A 


FC66 


CE 


FC58 


A 


00998A 


FC69 


DF 


DD 


A 


00999A 


FC6B 


BD 


FD15 


A 


O1OO0A 


FC6E 


7E 


FD7A 


A 


01002 










01003 










01004 










01005A 


FC71 


CG 


18 


A 



XXXXXXXXXX CALL SUBR xxxxxxxxxx 

X ENTRY AFTER C COMMAND, AFTER XOT USER RTS 

X SAVE USER REGISTERS 

* PRINT REGISTERS 



CRTS 



01006A FC73 DE 09 
01007A FC75 3A 
01O0SA FC76 DF OB 
01009A FC76 39 

01011 

01012 

01013 

01014 

01015 

01016 

01017 

01018 

010 1 9A FC79 7C 0008 A 

0102OA FC7C 8D F3 FC71 



01022 

01O23A 

O1024A 

01O25A 

01 026 A 

01O27A 

01 028 A 

01029A 

O1030A 

01031A 

01032A 

01033A 

01O34A 

01035A 

01 036 A 

01037 

01038 

01033 

01040A 

01041A 



FC7E 
FC7F 
FC82 
FCS4 
FC87 
FC83 
FC8B 
FC8E 
FC91 
FC93 
FC35 
FC96 
FC38 
FC3A 



FC9D 
FCAO 



30 

8E 0OCF A 
8D 79 FCFD 
BD FD15 A 
DE F3 A 
26 OA FC95 
7F 0OF5 A 
BD FD36 A 
2B 24 FCB7 
20 25 FCBA 
09 

DF F3 A 
26 03 FC9D 
7F OOFS A 



:n to 


ROUTINE CALLING C COMMAND ROUTINE 


PSHA 




SAVE TO GET CC 


TPA 






STAA 


SAVSTK+6 


CC 


PULA 






STS 


SPSAVE 


STK PNTR 


LDS 


♦STACK 




STD 


5AVSTK+4 


A,B 


STX 


SAVSTK+2 


X 


LDX 


♦ CRTS 


PC PNT TO MONITOR 


STX 


SAVSTK 




JSR 


RBRK 


REMOVE BRKPNTS 


JMP 


ENDCAL 


GO PR REGS, EXONE 



X SETCLK - USED BY ON-CHIP CLOCK 

X FOR HARDWARE TRACE 

X SET TIMER TO COMPARE AFTER 1 CYCLE OF USER INSTR 



SETCLK LDAB 
LDX 
ABX 
STX 
RTS 



♦ Si 8 
CLOCK 



OCREG 



SET ♦CYCLES 

GET CLOCK TIME 

ADD ♦ CYCLES 

STORE IN COMPARE REG 



XXXXXXXXXX NMI ENTRY XXXXXXXXXX 



X ENTER FROM XQT 1 INSTR - TRACE OR XOT OVER BRKPNT 

X MOVE REGS FROM USER STK TO MONITOR STORAGE 

X REPLACE BRKPNTS WITH USER CODE 

X IF NOT TRACING, REPLACE CODE WITH BRKPNTS ( 3F ) 

X IF TRACING, PRINT REGISTERS 

X EXECUTE NEXT USER INSTR 

X ENTRY FOR ONCHIP CLOCK TRACE 

C.NMI INC TCSR BRING LEVEL HIGH 

BSR SETCLK NO NMI, BUT LEVEL CHG 

X ENTRY FOR PTM HARDWARE TRACE 



M.NMI TSX 
LDS 
BSR 
JSR 
LDX 
BNE 
CLR 
JSR 
BMI 
BRA 

NMI01 DEX 

NMI015 STX 
BNE 
CLR 

X PRINT TRACE 



♦STACK 

MOVSTK 

RBRK 

NTRACE 

NMI01 

EXONE 

SETB 

NMI03 

ARMSTK 

NTRACE 
NMI 02 
EXONE 
LINE: 



TRANSFER STK PNTR 

SAVE USER REGS 
REMOVE BRKPNT 
TRACE? 



CE 0000 
BD FDD7 



X OP-XX P-XXXX X-XXXX A-XX B-XX C-XX S-XXXX 
X CHECK IF USER HIT CONTROL X TO TERMINATE TRACE 
NMI02 LDX ♦© CLR TRACE & EXONE IF TERMINATE 
JSR CHKABT 



01042A 


FCA3 


27 


Fl 


FC96 






BEQ 


NMI015 


TERMINT IF = CNTL X 


01043A 


FCA5 


CE 


FFB1 


A 






LDX 


♦PRTOP 


GET ADR OF OP- 


O1044A 


FCA8 


BD 


FBOE 


A 






JSR 


PDATA 




01045A 


FCAB 


DE 


D9 




A 






LDX 


TEMPA 


GET OLD PC 


01046A 


FCAD 


BD 


FADB 


A 






JSR 


0UT2HS 


PR OPCODE 


01047A 


FCBO 


BD 


FB88 


A 






JSR 


PREGS 


PR TRACE LINE 


0104SA 


FCB3 


96 


F5 




A 






LDAA 


EXONE 




01049A 


FCB5 


26 


03 


FCBA 






BNE 


ARMSTK 




01O50A 


FCB7 


7E 


F352 


A 


NMI03 


JMP 


MA I N 




01051 












X 


STACK USER 


! REGISTERS 




01052 












X 


MOVE 


FROM 


MONITOR STORAGE TO USER STACK 


01053 












X 


IF TRACE - 


SET HARDWARE 


O1054A 


FCBA 


9E 


E4 




A 


ARMSTK 


LDS 


SPSAVE 


SET STK FOR RTI 


01055A 


FCBC 


DE 


DD 




A 






LDX 


SAVSTK 


PC 


01056A 


FCBE 


3C 












PSHX 






01057A 


FCBF 


DE 


DF 




A 






LDX 


SAVSTK+2 


y 


01058A 


FCC1 


3C 












PSHX 






01059A 


FCC2 


DC 


El 




A 






LDD 


SAVSTK+4 


GET A, B 


01060A 


FCC4 


36 












PSHA 




MOVE TO STK 


01061 A 


FCC5 


37 












PSHB 






01 062 A 


FCC6 


96 


E3 




A 






LDAA 


SAVSTK+6 


GET CC 


01063A 


FCCS 


36 












PSHA 






01064A 


FCC9 


96 


F5 




A 






LDAA 


EXONE 




01 065 A 


FCCB 


£7 


1C 


FCE9 






BEQ 


ARMS04 




01066A 


FCCD 


DE 


DD 




A 






LDX 


SAVSTK 


SAVE PC PNTR FOR NXT TRA( 


01067A 


FCCF 


DF 


D3 




A 






STX 


TEMPA 




01068 












X 


CHECK IF USE PTM OR < 


ON-CHIP CLOCK 


01069A 


FCD1 


8D 


17 


FCEA 






BSR 


IFPTM 




0107OA 


FCD3 


27 


OD 


FCE2 






BEQ 


SETPTM 


GO USE PTM 


01071 












X 


IF USER ISSUE TRACE i 


COMMAND AND 


01072 












X 


NOT 


US I NG 


PTM - ASSUME ON-CHIP 


01O73A 


FCD5 


86 


02 




A 






LDAA 


♦ 2 


SET DDR FOR OUTPUT 


01074A 


FCD7 


37 


Ol 




A 






STAA 


P2DDR 


PORT 2 


01075A 


FCD9 


D6 


08 




A 






LDAB 


TCSR 


SET UP FOR ON-CHIP CLOCK 


01076A 


FCD& 


C4 


FE 




A 






ANDB 


♦*FE 


CLEAR OLVL BIT 


01077A 


FCDD 


D7 


OS 




A 






STAB 


TCSR 




O1078A 


FCDF 


8D 


90 


FC71 






BSR 


SETCLK 


SET CMPR REG, WAIT FOR CI 


01073 






FCE1 


A 


DUMMY 


EQU 


X 


INTERRUPT VECTORS USE TH 


01 080 A 


FCE1 


3B 












RTf 







01082 

01083 

01O84A FCE2 CC 0501 

01085A FCE5 DE F8 

01O86A FCE7 ED 02 

01087A FCE9 3B 



X SET HARDWARE FOR PTM 
X INITIATE COUNTER 
A SETPTM LDD ♦•OSOl 
A LDX PTM 
A STD 2,X 
ARMS04 RTI 



M=5,L=1 TURN ON TRACE 
GET ADR OF PTM 
STORE AT PTM ADR +2 



01089 










X 


CHECK NMI 


VECTOR 


01090 










X 


DETERMINE 


IF USE ON-CHIP CLOCK OR PTM 


01 09 1 










X 


FOR HARDWARE TRACE 


01092A 


FCEA 


CE 


FFF0 


A 


IFPTM 


LDX 


♦VECTR GET ADR OF VECTORS 


01093A 


FCED 


96 


03 


A 






LDAA 


MQDE EXTERNAL VECTRS? 


01O94A 


FCEF 


34 


EO 


A 






ANDA 


♦ *E0 CHK 3 MSB 


01035A 


FCFt 


81 


£0 


A 






CMPA 


♦ *£0 MODE 1? 


01 096 A 


FCF3 


27 


02 FCF7 






BEQ 


IFPTM2 


01097A 


FCF5 


DE 


FE 


A 






LDX 


VECPTR GET VECTOR TABLE 


01098A 


FCF7 


EE 


OC 


A 


IFPTM2 


LDX 


»C,X GET NMI ADDRESS 


01O99A 


FCF9 


8C 


F80O 


A 






CPX 


♦EX. NMI PTM ENTRY? 
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CO 



01100A FCFC 39 



01102 

01103 

01104 

01105A 

01106A 

01107A 

01108A 

01109A 

01110A 

01111A 

01112A 

01113A 

0U14A 

01115A 

0111GA 

01117A 



RTS 



RETURN WITH CC SET 



XXXXXXXXXXXXXXX MOVSTK *************** 

X MOVE USER REGS FROM USER STACK TO MONITOR STORAGE 

* RESET USER STACK POINTER 



01119 

01120 

01121 

01122 

01123A 

01124A 

01125A 

01126A 

01127A 

01128A 

01129A 

01 1 30A 

01131A 

01132A 

01133A 

01134A 

01135A 

01136A 

01137A 

01138A 

01139A 

01140A 

01 141 A 

01142A 

01144 

01145 

01146 

01147A 

01148A 

01149A 

01150A 

01 151 A 

01 152 A 

01153A 

01154A 

01 I 55 A 

01156A 

01157A 



FCFD 
FCFF 
FD01 
FD03 
FD05 
FD07 
FD09 
FD0B 
FD0D 
FD0F 
FD11 
FD12 
FD14 



FD15 
FD17 
FD13 
FD1C 
FD1E 
FD1F 
FD20 
FD21 
FD23 
FD24 
FD2G 
FD28 
FD2A 
FD2B 
FD2C 
FD2D 
FD2E 
FD30 
FD32 
FD35 



FD36 
FD3S 
FD3A 
FD3D 
FD3F 
FD40 
FD42 
FD44 
FD46 
FD47 
FD49 



AG 00 
97 E3 
EC 01 
97 E2 
D7 El 
EC 03 
DD DF 
EC 05 
DD DD 
CG 06 
3A 

DF E4 
33 



MOVSTK LDAA 
STAA 
LDD 
STAA 
STAB 
LDD 
STD 
LDD 
STD 
LDAB 
ABX 
STX 
RTS 



SAVSTK+6 

1 , X 

SAVSTK+5 

SAVSTK+4 

3,X 

SAVSTK+2 

5,X 

SAVSTK 

♦ 6 

SPSAVE 



MOVE C,B,A,X,FC 
TO PC,X,A,B,C 



XXXXXXXXXXXXXXX RBRK XXXXXXXXXXXXXXX 

X REPLACE BRKPNTS (SWI> WITH USER CODE 

X BKADR -TABLE OF 4 BRKPNT ADR 

X OPCODE - TABLE OF OPCODES, CORRESPOND TO ADR 



36 F2 A RBRK 
27 1C FD35 
CE 00E6 A 
A 



C6 08 

3C 

3C 

3A 

A6 00 

33 

EE 00 



RBRK2 



A 
02 FD2A 
00 A 



27 

A7 

38 

08 

08 

5A 

CI 04 A 

26 EC FD1E 

7F 00F2 A 

39 



RBRK3 



RBRK6 



LDAA 


BRKFLG 


IGNORE IF BRKPNTS NOT 


BEQ 


RBRK6 




LDX 


♦BKADR 


GET TABLE OF ADR 


LDAB 


♦NUMBPX2 


INDEX INTO OPCODE TABLI 


PSHX 




SAVE TABLE ADR 


PSHX 






ABX 






LDAA 


0,X 


GET OPCODE 


PULX 






LDX 


0,X 


GET USER BRKPNT ADR 


BEQ 


RBRK3 


NO ADR 


STAA 


0,X 


RESTORE OPCODE 


PULX 




GET NXTT ADR FROM TABL 


I NX 






I NX 






DECB 




ADJUST OPCODE INDEX 


CMPB 


•NUMBP 


END TABLE? 


BNE 


RBRK2 




CLR 


BRKFLG 


CLR BRKPNT FLAG 


RTS 







*************** SETS x**xxx*x**x**x* 

X REPLACE USER CODE WITH 3F AT BRKPNT ADDRESSES 

* IGNORE IF BREAKPOINTS ALREADY IN 



96 F2 A SETB 

26 70 FDAA 

CE 00E6 A 

C6 08 A 

3C SETB2 



00 A 
10 FD54 
A 



A6 00 
37 

C6 3F 
BD FAF7 



LDAA 


BRKFLG 


ALREADY IN? 


BNE 


SWERR 


SET NEG RETURN 


LDX 


♦BKADR 




LDAB 


♦NUMBP*2 


SET INDEX INTO OPCODES 


PSHX 




SAVE ADR PNTR 


LDX 


0,X 


GET USER BRKPNT ADR 


BEQ 


SETB4 


SKIP IF NO ADR 


LDAA 


0,X 


GET OFCODE 


PSHB 




SAVE OPCODE INDEX 


LDAB 


♦ *3F 


SET SWI 


JSR 


STRCHK 


STORE & CHK CHG 



01158A FD4C 33 

01159A FD4D 38 

01160A FD4E 2B 0E FD5E 

01161A FD50 3C 

01162A FD51 3A 

01163A FD52 A7 00 A 

01164A FD54 38 SETB4 

01165A FD55 06 

01166A FD56 08 

01167A FD57 5A 

01168A FD58 CI 04 A 

01169A FD5A 26 E3 FD3F 

0117OA FD5C D7 F2 A 

01 171 A FD5E 39 SETB6 



PULB 

PULX 

BMI 

PSHX 

ABX 

STAA 

PULX 

INX 

INX 

DECB 

CMPB 

BNE 

STAB 

RTS 



&,X 



INDEX 

ADR TABLE PNTR 

3F STORED GOOD? 

RESAVE TABLE PNTR 

CALCLATE OP POS IN TABLE 

SAVE OPCODE 

GET TABLE ADR 



GET NXT ADT 

ADJUST OPCODE INDEX 
♦NUMBP END TABLE? 
SETB2 LOOP IF NOT 
BRKFLG SET BRKPNT FLAG 



01174 
01175 
01176 
01177 
01178 
01179 
01180 

01181A FD5F 
01182A FD60 
011S3A FD63 
011S4A FD65 
01 185 A FD67 
011S6A FD6S 
011S7A FD6A 
011S8A FD6C 
01189A FD6E 
01130A FD70 
01 191 A FD72 
01192A FD75 
01193 

01134A FD77 
01135A FD7S 
01196 
01137 

01198A FD7A 
01139A FD7B 
01200A FD7C 
01201A FD7E 
01202A FDS0 
01203A FDS3 



00CF A 
98 FCFD 
DD A 

DD A 
D9 A 
F2 A 
0A FD7A 
A3 FD15 
FBD9 A 
03 FD7A 



04 FD7E 
FD7A A 



********** SWI ENTRY XXXXXXXXXX 

* ENTER WITH BRKPOINT SETTING 
X SAVE USER REGISTERS 

X DECR PC TO POINT AT SWI 

X REPLACE SWI'S WITH USER CODE 

* PRINT REGISTERS 

X GO TO MAIN CONTROL 
M.SUI TSX 

♦STACK 

MOVSTK 

SAVSTK 



F3 
F5 

FB86 
F952 



012 
012 
015 
012 
012 
012 
012 
012 
012 
012 
01215A FD86 DE D7 



1205 

£08 
L207 



1212 
M3 



LDS 
BSR 
LDX 
DEX 
STX 
STX 
LDAA 
BEQ 
BSR 
JSR 
BNE 
X REG A = 
INCA 
BRA 
X ENTRY FROM 
ENDCAL EGU 
BKPERR CLRA 
CLRB 
STD 
STAA 
JSR 
JMP 



LOOP 

GET USER STK 
SET TO INTERNAL 
SAVE USER REGS 
DECR USER PC 



STK 



SAVSTK 
TEMPA 
BRKFLG 
BKPERR 
RBRK 
BRKTAB 
BKPERR 
IF BRKTAB 



SAVE FOR BRKTAB CHK 
ERR IF NOT BRKPOINT 



REMOVE 
BRKPNT 



BRKPNT FROM CODE 
IN TABLE? 



FIND BRKPNT 



SW!3 
CRTS - 



PR REGS, RTN TO MAIN 



SWI 3 



NTRACE 
EXONE 
PREGS1 
MAIN 



RESET 
CLEAR 



NUM 
XQT 



INSTR TO 
1 INSTR 



TRACE 



GO TO MAIN LOOP 



XXXXXXXXXX DISPLAY XXXXXXXXXX 

X D OR D <ADR> OR D < ADR > < ADR > 

X DISFLAY MEMORY - BLK OF MEMORY AROUND LAST 

* REFERENCED BYTE FROM MEM/EX 

* DISPLAY 16 BYTES AROUND < ADR > SPECIFIED 
X OR DISPLAY FROM < ADR > TO < ADR > MOD 16 

* ASCII CHAR WILL BE PRINTED ON THE RIGHT 

* MEM/EX PNTR WILL PNT TO LAST ADR REFERENCED 

* AT END OF DISPLAY COMMAND 



M4 



A DISPLY LDX 



PNTR 



SAVE MEMORY/EX PNTR 
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o 



01216A 

01 21 7 A 

0121SA 

01213A 

01220A 

01221A 

01222A 

01223A 

01224A 

01225A 

01226A 

01227A 

01228A 

01229A 

01230A 

01 231 A 

01232A 

01233A 

01 £34 A 

01235A 

01236A 

01237A 

0123SA 

01233A 

01240A 

01241A 

01242A 

01243A 

01244A 

01245 

01246 

01247 

0124SA 

01249A 

01250A 

01251A 

01252A 

01253A 

01254A 

01 255 A 

01256A 

01257A 

0125BA 

01260 

01261 

01262 

01263 

01264 

01265 

01266A 

01267A 

01 268 A 

01269A 

01270A 

01 27 I A 

01272A 

01273A 



FDSS 
FDS9 
FDSB 
FDSD 
FDSF 
FD31 
FD93 
FD35 
FD97 
FD99 
FD3B 
FD3E 
FDA0 
FDA3 
FDA5 
FDA7 
FDA3 
FDAA 
FDAC 
FDAD 
FDAF 
FDB1 
FDB3 
FDB5 
FDB7 
FDB9 
FDBB 
FDBD 
FDBF 



FDCi 
FDC3 
FDC6 
FDC3 
FDCB 
FDCE 
FDCF 
FDD1 
FDD3 
FDD5 
FDD6 



0D A 

0A FD97 

5A FDE9 

16 FDA7 

D7 A 

0D A 

16 FDAD 

D7 A 

F0 A 
0010 A 

D7 A 
0020 A 

D9 A 

1A FDC1 



D7 
FF 



3A FDE9 

F6 FDA7 

D7 A 

F0 A 

DS : A 

D3 A 

EC FDA7 

DA A 

F0 A 

DA A 



0C 

FE54 
00D7 
OE 
F3DF 



SH0W35 



SHERR2 

SHERR 

SH0W4 



* TURN 

* CALL 

* DA 
SHOWS 



D7 
10 



PSHX 

CMPA 

BEQ 

BSR 

BLE 

STX 

CMPA 

BNE 

LDD 

ANDB 

SUED 

STD 

ADDD 

STD 

BRA 

PULX 

SIX 

LDAA 

RTS 

BSR 

BLE 

LDD 

ANDB 

STAB 

SUBD 

BHI 

LDAA 

ANDA 

STAA 

ON H 

HIGH 

TA F 

LDAB 

JSR 

LDX 

LDAB 

JSR 

PULX 

STX 

LDAB 

BSR 

CLRA 

RTS 



**D 

SH0W35 

PVALIN 

SHERR2 

PNTR 

#»D 

SH0W4 

PNTR 

#tF0 

#*10 

PNTR 

#1=20 

TEMPA 

SHOWS 

PNTR 
#tFF 

PVALIN 

SHERR2 

PNTR 

#«F0 

PNTR+1 

TEMPA 

SHERR2 

TEMPA+1 

#*F0 

TEMPA+1 



CR? 
NO ARG 



ERR IF NOT HEX, OR ABORT 



DEFINE BLK TO DMP 
MASK OUT LOW DIGIT 



TO ADR 



RESET MEM/EX PNTR 



READ HEX # 

JMP IF ERR 

FROM ADR < TO ADR? 

MASK OUT LOW ORDER DIGIT 



MASK TO FULL LINE 



01274 

01275A FDE7 32 

01276A FDE8 39 



* RETURN WITH CC SET 

PULA 
SH0W19 RTS 



CHANGES LAST REF ADR 
IGH SFEED DEVICE 

SPEED DATA ROUTINE TO OUTPUT 
ROM ADR IN PNTR TO ADR IN TEMPA 
HS.ON 



102 

#BBLK+1 
#HS.DTA 
10 

PNTR 

♦HS.OFF 

102 



GET TRANSFER PACKET 



RETRIEVE MEM/EX PNTR 



CLEAR CC FOR RETURN 



******£**$*****£ CHKABT *************** 

* READ WITH NO WAIT 

* CHK FOR CONTROL X - ESCAPE FROM PRINT 

* CHK FOR CONTROL W - WAIT DURING T OR D PRINT 

* ANY CHARACTER CONTINUES FRINT 



FDD7 
FDD8 
FDDA 
FDDC 
FDDE 
FDE0 
FDE2 
FDE5 



A 

FE54 



7F 
17 



A 

03 FDE5 
FS06 A 
13 A 



* ANY OTHER CHARACTER 
CHKABT PSHA 

LDAB 

BSR 

ANDA 

CMPA 

BNE 

•JSR 
CWK2 CMPA 



READ & IGNORE 



#CI .DTA READ A CHAR 

I 02 

#S7F 

#CNTLW 

CHK2 

INCHNP 

♦CNTLX 



CLEAR PARITY 
CONTROL W? 

IF SO WAIT FOR INPUT 
TO CONTINUE PRINT 
CONTROL X? 



0127SA FDE9 7E F9FA A PVALIN JMP 



VALINP SAVE BYTES 



01280 

01281 

01282 

01283 

01284 

01285A 

012S6A 

012S7A 

012SSA 

012S9A 

01290A 

01291A 

01292 

01293A 

01294A 

01295A 

01296A 

01297A 

0129SA 

01299A 

01300A 

01301 A 

01302A 

01303A 

01304 

01305A 

01 306 A 

01307A 

01 308 A 

01309A 

01 310 A 

01 311 A 

01312A 

0131 3 A 

01 3'1 4ft 

01 31 5 A 

01316A 

01317A 

01313A 

01313A 

01 320 A 

01 321 A 

01322A 

01323A 

01324m 

01325A 

01 326 A 

01 3 ^7 A 

0132&A 

01 329 A 

0133OA 

01 331 A 



FDEC 
FDED 
FDEF 
FDFi 
FDF3 
FDF5 
FDF7 

FDFA 
FDFD 
FE00 
FE01 
FE02 
FE05 
FE08 
FE0B 

FE0D 
FEOF 

FEU 
FE13 
FE15 
FE1S 
FE1B 
FE1E 
FE20 
FE22 
FE25 
F E2S 
FE27 
FE29 
FE2C 
FE2E 
FE30 
FE32 
FE34 
FE36 
FE3S 
FE3A 
FE3C 
FE3E 
FE4 1 
FE42 
FE43 
FE45 
FE47 



02 
00 
D7 
02 
D3 
FB12 

FFC1 
FB0E 



£«»-:££»:£££££»'£.£ HSDTA mxxxxx.x*.#.w.x*.w.w.x 

* FROM ADR, TO ADR IN TRANSFER BLOCK 

* ADR ARE DIVISIBLE BY 16 

* ADR OF BLOCK WAS IN REG X 

* X SAVED ON STK BY 10 
HSDTA TSX 

A LDX 2,X 

A LDD 0,X 

A STD PNTR 

A LDD 2,X 

A STD TEMPA 

A SH0W9 JSR PCRLF 

* PRINT BLOCK HEADING 



GET TRANSFER PACKET 

GET FROM ADR 
SAVE FOR DUMP 
GET TO ADR 

LINE FEED 



FAED A 
FADD A 
FADD A 



10 A 
F0 FE01 



LDX 

JSR 

CLRA 

PSHA 

JSR 

JSR 

JSR 

PULA 

INC A 

CMPA 

BNE 



♦SPACE6 
PDATA 



OUTHR 
SPACE 
SPACE 



#fl0 
PRTTL 



PR LEADING BLANKS 



CONVERT TO DISPLAY 



PR 2 SPACES 
GET CNTR 



PR 0-F 
FINISHED? 



£ CHECK IF USER WANT TO TERM I NT DISPLAY CMD 



C4 FDD7 
D3 FDES 
FB12 A 
00D7 A 
FADS A 
D7 A 
10 A 
FADB 



F9 FE22 
FADD A 
10 A 



D7 



7F A 

20 A 

04 FE3C 

61 A 

02 FE3E 

2E A 

F809 A 



EB FE30 
D3 A 
D7 A 



SHOW10 BSR 
BEQ 
JSR 
A LDX 

A JSR 

A LDX 

A LDAB 

A SH0W12 JSR 
I NX 
DECB 
BNE 
JSR 
LDAB 
LDX 
SH0W14 LDAA 
ANDA 
CMPA 
BLT 
CMPA 
BLT 
SH0W16 LDAA 
SH0W18 JSR 
I NX 
DECB 
BNE 
LDD 
SUBD 



A 



CHKABT 

SHOW 19 

PCRLF 

#PNTR 

0UT4HS 

PNTR 

*16 

0UT2HS 



SH0W12 

SPACE 

#16 

PNTR 

0,X 

#S7F 

#*20 

SH0W16 

#$61 

SHOW 18 

#'■. 

DUTCH 



SH0W14 

TEMPA 

PNTR 



RETURN IF CONTROL X 

GET ADR OF LINE 

PRINT ADR 

GET CONTENTS OF MEMC 

CNTR FOR LINE 

PR DATA 

I NCR ADR PNTR 

LOOP 

PRINT ASCI I DUMP 

NUM CHAR/LINE 



CHK PRINTABLE 



FOR NON-CHAR 
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01332A FE49 27 9D FDES 

01333A FE4B DF D7 A 

01334A FE4D 7D 0ODS A 

01335A FE50 26 BF FEll 

01336A FE52 20 A3 FDF7 



BEQ 


SH0W13 


RETURN 


STX 


PNTR 


SAVE FROM ADR 


TST 


PNTR+1 




BNE 


SHOW10 


END OF LINE 


BRA 


SHOWS 


END OF BLOCK 



01338 

01339A FE54 7E F8DF 



* 10 CALL - TO SAVE A FEU BYTES 
A 102 JMP 10 



01341 












*************** RD2ADR 


*************** 


01342 












* 


READ 


' <DELIM 


> < ADR1 > 


< ADR2> 


01343A 


FE57 


81 


OD 




A 


RD2ADR 


: CMPA 


**0D 


CR? 


01344A 


FE59 


27 


13 


FE6E 






BEQ 


PNCHER 




01 345 A 


FE5B 


8D 


ac 


FDE9 






BSR 


PVALIN 


CALL INPUT ROUTINE 


01 346 A 


FE5D 


2F 


0F 


FE6E 






BLE 


PNCHER 


CHK IF NUMBER 


01347A 


FE5F 


DF 


D7 




A 






STX 


BBLK-M 


SAVE 1ST ADR ( PNTR > 


01348 












* 


INPUT CHECKS FOR DELIMITER 


01343A 


FE61 


81 


0D 




A 






CMPA 


#*D 


CR? 


01 350 A 


FE63 


27 


09 


FE6E 






BEQ 


PNCHER 


DO NOT ALLOW CR 


01 351 A 


FE65 


BD 


FDE9 


A 


PNCH3 


JSR 


PVALIN 


READ NEXT ADR 


01352A 


FE68 


2F 


04 


FE6E 






BLE 


PNCHER 


VALID ADR? 


01353A 


FE6A 


81 


OD 




A 






CMPA 


#f D. 


REQUIRE CR AFTER ADR 


01354A 


FE6C 


27 


03 


FE 


71 






BEQ 


PNCRTN 




01355A 


FE6E 


36 


FF 




A 


PNCHER 


: LDAA 


#*FF 


ERR RTN 


01356A 


FE70 


38 












PULX 




REMOVE SUBR CALL ADR 


01357A 


FE71 


39 








PNCRTN 


1 RTS 






01359 












*************** PUNCH ; 


*************** 


0136O 












* 


P < ADR1 > < ADR2> 




01361 












* 


PUNCH FROM 


? ADR1 > TO 


<: ADR2> 


01362 












* 


ERROR IF <ADR2> LT <ADR1> 


01363 












* 


SET 


UP TRANSFER PACKET 


01364 












* 


1ST 


WRD - FCN FOR PUNCH = 


01365 












* 


2ND, 


3RD WRDS = < ADR1 > 


01366 












* 


4TH, 


5TH WRDS = < ADR, 


2 > 


01367 












* 


LDX 


W/ ADR < 


OF TRANSFER PACKET 


01368 












* 


JMP 


THRU 10 


VECTOR T< 


BSDTA 


01369A 


FE72 


7F 


00D6 


A 


PUNCH 


CLR 


BBLK 


SET BULK STR FCN 


01370A 


FE75 


SD 


E0 


FE57 






BSR 


RD2ADR 


READ 2 ADDRESSES 


01371 












* 


HEX 


STILL IN TEMPA ( BBLK+-3 ) - END ADR 


01372A 


FE77 


BD 


FB12 


A 


PNCH4 


JSR 


PCRLF 




01373 












* 


SET 


NO ECHO 


• FLAG/ TAPE FLAG 


01374A 


FE7A 


8S 


10 




A 






LDAA 


#•10 


# NULLS W/TAPE CR 


01375A 


FE7C 


37 


F6 




A 






STAA 


OUTSW 




01376A 


FE7E 


C6 


12 




A 






LDAB 


♦BS.ON 


TURN PUNCH ON 


01377A 


FE80 


8D 


D2 


FE54 






BSR 


102 




01378A 


FES2 


CE 


00D6 


A 






LDX 


#BBLK 


ADR OF BULK STORE BL 


0137SA 


FE85 


Cb 


14 




A 






LDAB 


#BS,DTA 


OFFSET TO BULK ROUTI 


01 380 A 


FE87 


8D 


CB 


FE54 






BSR 


102 




01381 A 


FE89 


36 












FSHA 




SAVE FOR RETURN CC 


01 38 2. A 


FE8A 


ce 


16 




A 






LDAB 


♦BS.OFF 


TURN OFF TAPE 


01383A 


FE8C 


8D 


C6 


FE54 






B S P 


102 




01 384 A 


FES.E 


BD 


FDD7 


A 






JSR 


CHKABT 


CLEAR 10 BUF 


01385A 


FE91 


BD 


FDD7 


A 






JSR 


CHKABT 


DOUBLE BUF 


013S6A 


FE94 


7F 


00F6 


A 






CLR 


OUTSW 


TURN PR ON 


01387A 


FE97 


32 












PULA 






013S8A 


FE98 


4D 












TSTA 




SET RETURN PR 


01389A 


FE99 


39 












RTS 







01391 

01332 

01393 

01394 

01335 

01396 

01397 

01398A 

01399A 

01400A 

01 401 A 

01402A 

01403A 

01404A 

01405A 



*************** LOAD *************** 

* L LOAD A TAPE FILE 

* L < OFFSET > LOAD WITH AN OFFSET 

* SET FUNCTION IN BULK STORE PACKET 

* IF OFFSET - 3RD, 4TH WRDS OF PACKET 

* LDX 14/ ADR OF TRANSFER PACKET 
THRU 10 VECTOR TO BSDTA 



OFFSET 



FE9A C6 

FE9C D7 

FE9E CE 

FEA1 DF 

FEA3 81 

i EA5 27 

FEA? SD 

FEA9 20 



01 A 
D6 A 
0000 A 
D9 A 
0D A 
D0 FE77 
BC FE65 
CC FE77 



* JMP 

LOAD 

L0AD2 



LDAB 

STAB 

LDX 

STX 

CMPA 

BEQ 

BSR 

BRA 



#1 

BBLK 

*0 

BBLK+3 

#tD 

PNCH4 

PNCH3 

PNCH4 



SET LOAD FCN = 1 



INIT OFFSET=0 



CR? 
YES 



01407 

014OS 

01403 

01410 

0141 1 

01412 

01413 

01414A FEAB C6 FF 

01415A FEAD 20 ED ! 

01417 

01418 

01419 

01420 * 

01421A FEAF 36 11 A BSON 

01422A FEB1 7D 00D6 A 

01423A FEB4 26 01 FEB? 

01424A FEB6 4C 

01425A FEB7 7E FS09 A BS0N2 



*************** VERIFY *************** 

* V VERIFY THAT TAPE LOADED CORRECTLY 

* V < OFFSET > CHECK PROG LOADED WITH OFFSET CORRECTLY 

* SET FCN IN BULK STORE PACKET 

* IF OFFSET - 3RD, 4TH WRDS = OFFSET 

* LDX W/ ADR OF PACKET 

* JMP THRU 10 VECTOR TO BSDTA 
VERF LDAB #«FF 

BRA L0AD2 

********** BSON ********** 

* TURN PUNCH ON FOP READ OR WRITE 

* BBLK MUST BE SET - BBLK=0 WRITE 

* BBLK*0 ON FOR READ 
SET FOR READ 



LDAA 


#»1 1 


TST 


BBLK 


BNE 


BS0N2 


INC A 




JMP 


DUTCH 



JUMP IF VERF/LOAD 

SET REG A=«12 FOR WRT TAPE 



01427 

0142SA FEBA CE FF8B 

01429A FEBD BD FB07 

01430A FEC0 7E F8D8 

01432 

01433A FEC3 30 

01434A FEC4 EE 02 A 

01435A FEC6 A6 00 A 

01436A FEC3 97 D6 A 

01437A FECA 27 53 FF25 



************** BSOFF *************** 
A BSOFF LDX #PUNOFF TURN PUNCH OFF 
A JSR PDATA1 OUTPUT STRG 8c RTN 

A JMP DELAY WAIT FOR PRT SYNC 

********** BSDTA ********** 



TSX 

LDX 2,X 

LDAA 0,X 

STAA BBLK 

EEO BSPUN 



BULK STORE DATA 
GET 10 PACK VECTOR 
GET FCN 

USED BY VERF/LOAD 
JUMP TO PUNCH, FCN= 



01438 

01440 

01441 

01442 

01443 

01444 

01445 

01446 

(M447A 

PAGE i 



FECC EC 03 



* FALL THRU TO VERF-BBLK=-1 , L0AD-BBLK=1 

* VERIFY, LOAD 

* GET OFFSET FROM 10 PACKET 

* FIND SI REC - DATA 

* READ BYTE CNT t TEMP > 

* READ ADDRESS - SET REG X 

* READ & STORE DATA, COMPUTE CHK SUM 

* COMPARE TAPE TO COMPUTED CKSUM 

LDD 3,X GET OFFSET 



LILBUG 6301 DEBUG MONITOR *** VER 1.0 *** 





01448A 


FECE 


DD 


D7 




A 




STD 


PNTR 






01449A 


FED0 


BD 


FS06 


A 


LOAD3 


JSR 


INCHNP 


READ 




01450A 


FED 3 


31 


53 




A 


L0AD4 


CMP A 


*'S 


GET 1ST GOOD REC 




01451A 


FED5 


26 


F9 


FED0 




BNE 


L0AD3 






01452A 


FED7 


BD 


F806 


A 




JSR 


INCHNP 






01453A 


FEDA 


at 


39 




A 




CMPA 


#'9 






01454A 


FEDC 


27 


32 


FF10 




BEQ 


LOAD20 


Fim AFTER S9 




01455A 


FEDE 


31 


31 




A 




CMPA 


♦ '1 


DATA REC 




01456A 


FEE0 


26 


Ft 


FED3 




BNE 


L0AD4 


NO 




01457A 


FEE2 


7F 


00D0 


A 




CLR 


CKSUM 


IN IT CHECK SUM 




01458A 


FEES 


3D 


2A 


FF11 




BSR 


BYTE 


GET BYTE CNT 




01459A 


FEE7 


C0 


02 




A 




SUBB 


#2 


DECR BYTE CNT FROM IT 




01460A 


FEE9 


D7 


DB 




A 




STAB 


TEMP 


STORAGE FOR BYTE CNT 




01461 












* READ 


4 HEX 


DIGITS FROM INPUT 




01462 












* FORM 


ADDRESS AND STORE IN REG X 




01463A 


FEEB 


3D 


24 


FF11 




BSR 


BYTE 


1 BYTE 




01464A 


FEED 


37 










PSHB 




SAVE 1ST BYTE 




01465A 


FEEE 


3D 


21 


FF11 




BSR 


BYTE 


2ND BYTE 




01466A 


FEF0 


32 










PULA 




GET 1ST BYTE 




01 467 A 


FEF1 


D3 


D7 




A 




ADDD 


PNTR 


ADD OFFSET 




0146SA 


FEF3 


37 










PSHB 




MOVE A:B TO X 




01469A 


FEF4 


36 










PSHA 








01470A 


FEF5 


38 










PULX 




SET REG X = ADR 




01471 












* STORE DATA 








01472A 


FEF6 


3D 


19 


FF11 


LOAD11 


BSR 


BYTE 


GET BYTE IN REG B 




01473A 


FEFS 


7A 


00DB 


A 




DEC 


TEMP 


DEC BYTE CNT 




01474A 


FEFB 


27 


0E 


FF0B 




BEQ 


LOAD15 


END REC? 




01475A 


FEFD 


7D 


00D6 


A 




T3T 


BBLK 


SKIP STORE iF VERF 




01476A 


FF00 


2B 


02 


FF04 




BMI 


L0AD12 


JUST COMPARE 




01477A 


FF02 


E7 


00 




A 




STAB 


0,X 




o> 


0147SA 


FF04 


El 


00 




A 


L0AD12 


CMPB 


, X 




l\D 


01479A 


FF06 


26 


06 


FF0E 




BNE 


LOAD 19 


ERROR 




01480A 


FF0& 


03 










I NX 








01 431 A 


FF09 


20 


EB 


FEF6 




ERA 


LOAD11 






01432 












* CHECKSUMS GOOD? 






01433 












* CKSUM IS ONE'S COMPLE 




01484A 


FF0B 


4C 








LOAD15 


INCA 




CHKSUM ADDED INTO B 




01485A 


FF0C 


27 


C2 


FED0 




BEQ 


L0AD3 


GET NEXT REC 




01486 












* CHECKSUM ERROR, VERF 


FAILURE, LOAD FAIL ERI 




014S7A 


FF0E 


36 


FF 




A 


LOAD 13 


LDAA 


*SFF 


SET NEG FOR ER RTN 




01488A 


FF10 


39 








LOAD20 


RTS 








01490 












*************** BYTE *************** 




01491 












* FORM 


A HEX 


BYTE FROM 


2 DISPLAY BYTES 




01432 












* CALL 


IN HEX 


TO ^EAD 1 


HEX DIGIT FROM INPUT 




01493A 


FFtl 


5F 








BYTE 


CLRB 




READ A-F AS HEX 




01 494 A 


FF12 


BD 


FA3F 


A 




JSR 


INHEX 






01495A 


FF15 


C6 


10 




A 




LDAB 


#16 






01436A 


FF17 


3D 










MUL 




LSB IN REG B 




01497A 


FF18 


37 










PSHB 




SAVE 




01433A 


FF13 


5F 










CLRB 




FLAG FOR INHEX 




01439A 


FF1A 


BD 


FA3F 


A 




JSR 


INHEX 






01 500A 


FFtD 


33 










PULE 








01 501 A 


FF1E 


IB 










ABA 




GET 1 BYTE 




01502A 


FF1F 


16 










TAB 




SAVE IN B 




01503A 


FF20 


9B 


D0 




A 




ADDA 


CKSUM 






01504A 


FF22 


97 


D0 




A 




STAA 


CKSUM 






01505A 


FF24 


39 










RTS 
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LILBUG 6801 


. DEBUG 


MONITOR *** VER 


1 .0 *** 



01507 
01508 
01509 
01510 
01511 
01512 
01513 
01514 
01515 
01516A 
01517A 
01518A 
01519A 
01520 
01 521 A 
01522A 
01523A 
01524A 
01525A 
01526A 
01527A 
01523A 
01529A 
01530A 
01531A 
01532A 
01533A 
01534A 
01535A 
01536A 
01537 
01538A 
01533A 
01540A 
01541 
01542A 
01 543 A 
01544 
01545A 
01 546 A 
01547A 
0154SA 
01549 
01550A 
01 551 A 
01552A 
01 553 A 
01554A 
.01 555 A 
01 556 A 
01557A 
0155CA 
01 559 A 
01 560 A 
01 56 LA 
0156ZA 
01563A 
PAGE < 



********** BSDTA - PUNCH ********** 

* MOVE FROM & TO ADDRESSES TO STORAGE 

* PNTR - FROM ADR TEMPA - TO ADR 

* BBLK - REUSED FOR FRAME CNT 

* TEMP - REUSED FOR BYTE CNT 

* PUNCH NULLS AS LEADER ON TAPE 

* PUNCH CR/LF, NULL, SI (RECORD TYPE), 

* FRAME COUNT, ADDRESS, DATA, CHECKSUM 

* EOF RECORD - S903000OFC 



FF25 
FF27 
FF29 
FF2B 

FF2D 
FF2F 
FF30 
FF33 
FF34 
FF36 
FF3S 
FF3A 
FF3C 
FF3E 
FF40 
FF42 
FF44 
FF46 
FF43 
FF4A 

FF4C 
FF4F 
FF52 

FF53 
FF56 

FF53 
FF5B 
FT5D 
FF5E 

FF60 
FF62 
FF64 
FFS5 
FF63 
FF6A 

F^ec 

FF6D 
FF6E 
FF6F 
F F 7 1 
FF72 
FF74 
FF75 
• 30 



EC 01 A 

DD D7 A 

EC 03 A 

DD D3 A 

C6 19 

4F 

BD FS09 A 

5A 

26 F9 FF2F 
A 
A 
D7 A 

26 04 FF42 

CI 18 A 

25 02 FF44 
A 
A 
A 
A 
A 



BSPUN LDD 

STD 

LDD 

STD 
* PUNCH LEADER 



PNULL 



DC D9 
D0 D8 
92 



C6 17 
CB 04 
D7 D6 
C0 03 
D7 DB 

CE FFA2 
BD FB0E 
5F 



PUN22 
PUN23 



LDAB 

CLRA 

JSR 

DECS 

BNE 

LDD 

SUBB 

SBCA 

BNE 

CMPB 

BCS 

LDAB 

ADDB 

STAB 

SUBB 

STAB 



PNTR 

3,X 

TEMPA 

#25 

OUTCH 

PNULL 

TEMPA 

PNTR+1 

PNTR 

PUN22 

#24 

PUN23 

#23 

*4 

BBLK 

#3 

TEMP 



GET FROM ADR 



GET TO ADR 



OUTPUT NULL CHAR 



LOOP IF NOT FINI 



FROM ADR < TO ADR? 



SET FRAME CNT 



BYTE CNT THIS REC 



* PUNCH CR/LF, NULLS, S,l 
A LDX #t1TAPE 
A JSR PDATA 

CLRB 

* PUNCH FRAME CNT 
CE 00D6 A LDX #BBLK 
8D 29 FF81 BSR PUNT2 

* PUNCH ADDRESS 
CE 00D7 A LDX #PNTR 
SD 24 FFS1 BSR PUNT2 
03 INx 
SD 21 FFS1 BSR PUNTS 

* PUNCH DATA 
DE D7 A LDX 



ZERO CHKSUM 



PUNCH 2 HEX CHAR 



ID FF81 PUN32 



3D 

08 

7A 00DB A 

26 F8 FF62 

DF D7 A 

53 

30 

3D 10 FF81 

3 ~ J , 

DE D7 A 

03 

9C D9 A 

LILBUG 680 



PNTR 
PUNT2 



BSR 
I NX 
DEC 
BNE 
STX 
COMB 
PS*B 
TSX 
BSR 
FULB 
LDX 
DEX 

CPX TEMPA 
1 DEBUG MONITOR *** VER 1.0 *** 



TEMP 

PUN32 

PNTR 



PUNT2 



PNTR 



PUNCH 1BYTE (2 FRAMES) 
I NCR X PNTR 
DECR BYTE CNT 



PUNCH CHKSUM 
RESTORE 



01564A FF77 26 BD FF36 



BNE 



PUN11 



CO 



01SG5A FF79 CE FFA5 

015GGA FF7C BD FB0E 

01567A FF7F 4F 

01 568 A FF80 33 

01563 

01570A FF81 EB 00 

01571A FF83 7E FAE1 



01573 

01574A 

A 

A 

A 

A 

01575A 

A 

01576A 

^1577A 

A 

0157SA 

A 

A 

A 

A 

A 

A 

A 

A 

A 

01573A 

015S0A 



A 

A 

01 581 A 

01582A 

A 

A 

01583A 

A 

A 

A 

A 

A 

A 



A 
01584A 



01 586 A 
01 587 A 
PAGE 



FFS6 
FFS7 
FF 88 
FFS9 
FFSA 
FFSB 
FWSC 
FFSD 
FFBE 
FF8F 
FF90 
FF31 
FF32 
FF93 
FF34 
FF35 
FF36 
FF97 
FF9S 
FF93 
FFSA 
FF9B 
FF9C 
FF9D 
FF9E 
FP9F 
FFA0 
FFAl 
FFA2 
FFA3 
FFA4 
FFAS 
FFA6 
FFA7 
FFAS 
FFA3 
FFAA 
FFAB 
FFAC 
FF AD 
FFAE 
FFAF 
F F B 
FFB1 
FFB2 
FFB3 
FFB4 
FFB5 
031 



10 

3A 
10 
39 
04 
14 
13 
04 
3F 
04 
4C 
43 
4C 
42 
55 
47 
20 
31 
2E 
30 
04 
4E 
4F 
20 
4 3 
48 
47 
04 
53 
31 
04 
53 



30 
30 
30 
30 
46 
43 
0D 
04 
4F 
50 
2D 
#4 



LDX *ME0F 

JSR PDATA 

CLRA 

RT3 

* PUNCH 2 HEX CHAR, 

PUNT2 ADDB 0*X 

JMP 0UT2H 



PUNCH EOF 



CLEAR CC FOR RETURN 



UPDATE CHK5UM 



OUTPUT 2 HEX & RTN 



X**XX*XXX* ROM DATA ********** 

PRTON FCB *10,S3A,»10,S33,4 TURN ON PRT 



PUNOFF FCB 



FCB 
QMARK FCB 



FCB 
PRT OP FCC 



»14,*13 TAPE CONTROL 



EOF 
PR ? 



•3F , 4 
/LILBUG 1.0/ 



FCB 4 
NOCHG FCC /NO CHG/ 



FCB 4 EOF 
MTAPE FCB 'S,'l,4 



MEOF FCC /S3030000FC/ 



SD,4 
/OP-/ 



PRT FOR TRACE LINE 



A 


FFB6 


01 


A 






015S8A 


FFB7 


58 


A 


FCB 


'X,l 


A 


FFB8 


01 


A 






01589A 


FFB3 


41 


A 


FCB 


'A,0 


A 


FFBA 


00 


A 






01530A 


FFBB 


42 


A 


FCB 


'B,0 


A 


FFBC 


00 


A 






01531A 


FFBD 


43 


A 


FCB 


'C,0 


A 


FFBE 


00 


A 






01532A 


FFBF 


53 


A 


FCB 


'S,l 


A 


FFC0 


01 


A 






01593A 


FFC1 


20 


A 


SPACE6 FCC 


/ / 6 SPACES FOR SHOW HI 


A 


FFC2 


20 


A 






A 


FFC3 


20 


A 






A 


FFC4 


20 


A 






A 


FFC5 


20 


A 






A 


FFC6 


20 


A 






01594A 


FFC7 


04 


A 


FCB 


4 


01536 








*************** VECTORS *************** 


01597 








X VECTOR INDEPENDENCE 


01538 








* ALSO SAVE 


ON RAM USAGE 


01593 








* VECPTR - 


RAM PNTR TO VECTOR TABLE 


01£00 








* VECTOR TABLE - ADR OF INTERRUPT VECTORS 


01601 








* MAY BE REDEFINED BY USER TABLE! IN SAME Fl 


JM602A 


FFC8 


FCE1 


A 


SERIAL FDB 


DUMMY NOT USED BY MONITOR 


01603A 


FFCA 


FCE1 


A 


TIMOVF FDB 


DUMMY 


01604A 


FFCC 


FCE1 


A 


TIMOUT FDB 


DUMMY 


01605A 


FFCE 


FCE1 


A 


TIMIN FDB 


DUMMY 


01606A 


FFD0 


FCE1 


A 


IRQl FDB 


DUMMY 


01607A 


FFD2 


F821 


A 


SWI FDB 


IN. SWI 


01608A 


FFD4 


F803 


A 


NM I FDB 


IN.NMI 


01603 








* DUMMY IS 


AN RTI 



01611 A FFD6 
01612 
01613 
01614 



ORG *FFD6 

* USE ADR ON STK TO OBTAIN INDEX 

* USE INDEX TO GET CORRECT VECTOR 

* ROUTINE ADR FROM VECTOR TABLE. 



LILBUG 



A FCB 4 

A ARRAY FCB 'P,l ARRAY OF REG AND WRD LEN 
6801 DEBUG MONITOR *** VER 1.0 K** 



01615A 


FFD6 


32 






VECTOR PULA 


THROW AWAY MSB OF ADR 


01616A 


FFD7 


33 






PULB 


GET LSB 


01617A 


FFD8 


83 


FFE4 A 


SUBD 


♦I.SER+2 


0161SA 


FFDB 


DE 


FE 


A 


LDX 


VECPTR ADF OF VECTOR TABLE 


01613A 


FFDD 


3A 






ABX 


ADD OFFSET 


01620A 


FFDE 


EE 


00 


A 


LDX 


0,X GET VECTOR ADR 


01 621 A 


FFE0 


6E 


00 


A 


JMP 


0,X GO THRU VECTOR 


01623 










* INTERRUPTS 


GO THRU VECTORS, THEN HERE 


01624 










* BSR STORES 


ADR ON STACK 


01625 










* ADR USED TO OBTAIN INDEX INTO VECTOR TABL 


01626A 


FFE2 


SD 


F2 


FFD6 


I.SER BSR 


VECTOR 


01627A 


FFE4 


SD 


P0 


FFD6 


I .TOVF BSR 


VECTOR 


01628A 


FFE6 


8D 


EE 


FFD6 


I .TOVT BSR 


VECTOR 


01623A 


FFE8 


8D 


EC 


FFD6 


I.TIN BSR 


VECTOR 


01630A 


FFEA 


SD 


EA 


FFD6 


I . IRQl BSR 


VECTOR 


01631A 


FFEC 


SD 


E8 


FFDG 


I. SWI BSR 


VECTOR 


01632A 


FFEE 


SD 


E6 


FFD6 


I .NMI BSR 


VECTOR 


01634 










X -INTERRUPT VECTORS 
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LILBUG 6801 


L DEBUG MONITOR *** VER 1.0 X** 






01635A 


FFF© 


FFE2 


A VECTR 


FDB 


I .SEP. 


01636A 


FFF2 


FFE4 


A 


FDB 


I .TOVF 


01637A 


FFF4 


FFE6 


6 


FDB 


I .TOVf 


01638 A 


FFF6 


FFE8 


A 


FDB 


I .TIN 


01639A 


FFF8 


FFEA 


A 


FDB 


r . IRQ1 


01640A 


FFFA 


FFEC 


A 


FDB 


I .SWi 


01641 A 


FFFC 


FFEE 


A 


FDB 


r .MM I 


01642A 


FFFE 


FS1E 


A 


FDB 


STRT 


01643 




F8F6 


A 


END 


START 



TOTAL ERRORS OOOOO 



FCE9 ARMS04 

FCBA ARMSTK 

FFB5 ARRAY 

FC56 BARMS 

00D6 BBLK 

FBE9 BERRTN 

00 E 6 BKADR 

FD7A BKPERR 

FBAD BF02 

FBBS EP04 

FBC5 BP06 

OOFS BRKFLG 

FB5S BRKPNT 

FBD9 BRKTAB 

FBEB BRTN 

0014 B5.DTA 

0016 55 .OFF 

0012 BS.ON 

FEC3 BSDTA 

FEBA ESOFF 

FEAF BSON 



00511 O1250 


01347 01369 


0137S 01399 0140 


01534 01542 






009 10*00915 


00317 00929 




00S77 0O890 


00301 00920 


01125 01149 


01 138* 







01147 
01191 



01170 01188 



FEB7 


BS0N2 


01423 


FF25 


BSPUN 


01437 


FF1 1 


BYTE 


01458 


FC73 


C.NMI 


001 13 


FCOF 


CALL 


001 50 


0OF7 


CALLF 


00102! 



FDE5 CHK2 
FDD7 CHKABT 
0OD5 CHRNL 
F85B CI 
0002 CI .DTA 
0004 CI .OFF 
0000 CI .ON 
F891 CI DTA 
FS99 CIDTA1 
F69C CFDTA2 
F3D1 CI OFF 
F3C3 CI ON 
00DO CKSUM 
0009 CLOCK 
F91S CLRAM 

0017 CNTLW 

001 8 CNTLX 
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01065 01087* 

00982 O1032 01049 01054* 

00783 015S7* 

00966 00982* 

00083*00453 

01436 01475 

00874 00884 
00096* "0368 
01185 01152 
00869 00873* 
00873*00333 
00873 00885* 
00038*01123 01141 
00147 0OS63* 

00875 00901*00928 
00904 00911* 
00207*01379 
00208*81382 
00206*01 376 
00134 01433* 
00154 01428* 
00194 01421* 

01425* 

01516* 

01463 01465 

1 1 3 * 

O 9 3 5 * 

0O37 1 00939 
01271 01273* 
01041 01266*01305 
00082*00272 00337 
00191*00357 
00193*00217 01267 
00199* 
00137* 
00191 00243* 

00249* 

O0252* 

0O296* 

0023 1* 
*01457 01503 O1504 
00058*01006 
00369*00372 
00054*01270 
00055*00575 01273 
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01472 01493* 

00953 00955 
01334 01385 



00245 

0O247 
001 31 
00131 
0007" 



ooos 


CO. DTA 


0OOA 


CO. OFF 


0006 


CO. ON 


F3A3 


CODTA 


FSD1 


COOFF 


FSD2 


COON 


F3D5 


C00N2 


FSA7 


CRTN 


FC5S 


CRTS 


00D0 


CT 


FBFD 


DBRK2 


FC05 


DBRK6 


F8D8 


DELAY 


FBEC 


DELBRK 


FD&6 


DISPLY 


F3DB 


DLY 


FCE1 


DUMMY 


FD7A 


EMDCAL 


FS00 


EX.NMI 


OOF 5 


E X N E 


FS24 


FCTABL 


0OFA 


FCTPTR 


FBE9 


G0X2 


FC23 


G X 6 


FC38 


G0X7 


FC3F 


G0X3 


FC11 


GOXQT 


O00E 


WS.DTA 


0010 


HS.OFF 


O00C 


HS..ON 


FDEC 


HSDTA 


F8D1 


h'SOFF 


F3D1 


HSON 


F3F1 


HY 


FFEA 


I . IRQ! 


FFEE 


I .NMI 


FFE2 


I .SER 


FFEC 


I . S'l-JI 


FFE3 


I.TIN 


FFE4 


I .TOVF 


FFEC 


I .TOVT 


FCEA 


IFPTM 


FCF7 


IFPTM2 


F303 


IN. NMI 


F821 


IN.SUII 


FA57 


IN1HG 


F873 


INCH1 


F374 


INCH 15 ' 


F376 


INCH2 i 


FS33 


INCH4 i 


F806 


INCHNP i 


FB4D 


INDAT ' 


FB63 


INDATO '. 


FB84 


INDAT1 ' 


FB75 


INDAT2 i 


FB31 


INDAT4 i 


FB6D 


INDAT5 i 


FA3F 


INHEX « 


i'E 034 LI Li 



M029 01036 01048 01064 ©1201 



00201*00234 

OO202* 
00200*00375 
00192 00269* 
00192 00299* 

00192 00304* 
00305* 

00267*00276 00282 
O0957 00933*00397 

00076*00077 00433 00436 00462 00789 00846 00848 
00922*00325 
00919 00923* 
00307*01430 
0O366 00871 00314* 
00153 01215* 
00303*00309 

01079*01602 01603 01604 01605 01606 
010OO 01137* 
00112*01099 

00100*00350 00563 00931 
00144*00361 00474 
00104*00362 00454 

00868 00372 00909*00947 00349 00973 00980 
0O345 00552* 
00954 00963* 
00364 00366* 
00156 00944* 
00204*01251 
00205*01255 
00203*01248 
00133 01235* 

00193 00293* 
00193 00297* 
00177 00344* 
01630*01639 
01632*01641 
01617 01626*01635 
01631*01640 
01623*01633 
01627*01636 
01628*01637 
00335 01063 01032* 
01096 01093* 
00113*00333 01603 
00123*01607 
00593 0060 1* 
00114 00216* 
00217*00213 00221 00223 
00213* 

00225 O0227* 

00114*00539 01272 01449 01452 
00793 00303* 
00313 00825* 
00828 00838 00340* 
O 3 1 4 & 3 3 * 
00836 00839* 
00824 00327* 
00562 00569*01494 01499 
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F940 INPTM ©0386 00395* 

FA0D INPUT 0053? 00557*00629 00810 00977 

FA0E INPUT2 0055G 00558* 

FA1S INPUTS 00562*00574 

FA1E INPUTS 00565*00570 

FA27 INFUT6 005G7 00569* 

FA33 INPUT7 00563 00575* 

FA3A INPUTS 00576 00580* 

FA09 INPUTA 00413 00441 00555* 

FA3C INPUTC 00540 00542 00581* 



F8DF 10 
FE54 102 
0OFC IOPTR 
FFD0 IRQ1 
FF90 LIL 
FE3A LOAD 



00213 00235 00318*00374 00376 01252 01339 
01249 01256 01268 01339*01377 01380 01383 

00105*00313 00358 

01606* 

00377 01578* 

00153 01338* 
FEF6 L0AD11 01472*01481 
FF04 L0AD12 01476 01478* 
FF0B LOAD! 5 01474 01434* 
FF0E L0AD19 -1479 01487* 
FE9C L0AD2 01393*01415 
FF10 LOAD20 01454 01488* 
FED0 L0AD3 01449*01451 01485 

01450*01456 

2-0072*00439 

00112 01023* 

00122 01 18 1* 

00389 00391 00408*00414 00418 00483 01050 01203 

00415 00422* 
F934 MAIN03 00434*00444 
F9C3 MAIN07 00442 00483*00514 
F3E5 MAIN03 00420 00424 00427 00512* 

00419 00620* 

00622 00625*00646 00664 

00632 00636* 

00644 00647* 

00643 00652* 

00653 00656* 

00655 00658* 

00651 00659* 

00626*00642 

O0640 00643* 
FA5B MEMORY O0162 00613* 
FAAS MEMSL 00425 00660*00692 
FFA5 MEOF 01565 01583* 
F9BD MERROR 00440 00443 00481*00513 

FAB1 MERRTN 00619 00624 00657 00666*00684 00636 00742 
0003 MODE 00067*01093 

>1025 01105*01133 

1538 01582* 

00271 00273* 

0O274 0O279* 

00273 00231*00237 

00:1-22 00970*00976 

00079*00455 00456 00460 00475 

01603* 

01023 01033* 
FC96 NM I 01 5 01034*01042 
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FFD3 L0AD4 
0030 LOURAM 
FC7E M.NMI 
FD5F M.SWI 
F352 MAIN 
F971 MA I NO 1 



FA5F MEMOl 
FA63 MEM02 
FA7D MEMO 3 
FA3F MEM04 
FA39 MEM06 
FAA0 MEM03 
FAA4 MEM 10 
FAA6 MEM12 
FA6B MEM25 
FA33 MEM33 



FCFD -MOVSTK 

FFA2 MTAPE 

F3B0 Nl 

F3BC N3 

F8BE N4 

FC41 NEXT 

00D3 NEXTX 

FFD4 NMI 

FCS5 NMI 01 



FC9D NMI02 01035 01040* 

FCB7 NMI03 01031 01O50* 

FF, 9B NOCHG 00740 01530* 

FA37 NOTHEX 00577*00591 00535 00597 00539 

00F3 NTRACE 00039*00979 01027 01034 01200 

0004 NUMBP 00095*00096 00097 01126 01139 01150 01168 

000B OCREG 00060*01003 

FAC7 0FF4 00631 O06S5* 

FACB 0FF6 00633 0O687* 

FAB4 OFFSET 00165 00676* 

0OEE OPCODE 00097*00862 00907 

FAE1 0UT2H 00625 00693 00705 00712*00793 01571 

FADB 0UT2HS 00118 00690 00705*00795 00837 01046 01312 

FADS 0UT4H5 00119 00662 00693*00339 00392 01309 

F89D OUTC 00261*00269 00285 

FS3E 0UTC1 00262*00264 

F309 DUTCH. 00115*00412 00769 00S55 0132G 01425 01523 

F83A 0UTCH1 001 15 00226 0O233* 

FB91 OUTDA 00786 00853* 

FAE9 OUTHL 00714 00720* 

FAED OUTHR 00716 00727*01297 

00F6 OUTSU 00101*00224 00270 00409 01375 01 386 

00DC OVFL 00083*00541 00563 

0001 P2DDR 00057*01074 

FBI 6 PCR 00650 00766* 

FBI 2 PCRLF 00120 00410 00653 00683 00691 00757 00763*00779 00845 00889 

0O352 01291 01307 01372 

00117 90373 00482 00741 00757*01044 01234 01539 01566 



FB0E PDATA 

FB07 PDATA1 00116 0O3O5 00750*00753 01429 



31352 01355* 



00748*00752 

01351*01404 

01372*01403 01405 
FE6E PNCHER 01344 01 346 01350 
FE71 PNCRTN 01354 01357* 
00D7 PNTR 00084*00626 00653 00661 00663 00679 01215 01221 

01232 01237 01239 01254 01283 01303 01310 01318 01331 01333 

01334 01448 01467 01517 01527 01523 01545 01550 01555 01561 

01522*01525 

00364 00376 00339*00926 00932 



FB04 PDATA2 
FE65 PNCH3 
FE77 PNCH4 



FF2F PNULL 
FBC9 PRBRK 



M224 01227 



FBD1 PRBRK2 00392*00895 
FBSS PREG5 00546*01047 



Fgftg PREGS1 
FB71 PRERR 
FF36 PRTON 
FFE1 PRTOP 
FE01 FRTTL 
00FS PTM 



00773 00345*01202 
00313 00316 00329*00834 
0C-304 01574* 
01043 01585* 
01236*01303 
00103*00364 00395 01085 



E000 PTMADR 00069*00363 
FF36 PUN1 1 01526*01564 



FF42 PUN22 
FF44 PUN23 
FF62 PUN32 
FE72 PUNCH 



01529 01532* 

01531 01533* 

01551*01554 

00168 01369* 
FF3B PUNOFF 01423 01575* 

FFS1 PUNT2 01543 Ol 546 01548 01551 01559 01570* 
FDE9 PVALIN 01219 01235 01278*01345 01351 
FF3E QMARK 00481 01577* 
FD15 RBRK 00999 O1026 01123*01190 
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0> 



FD1E RBRK2 01 1 27X01 1 40 

FD2A RBRK3 01133 01135* 

FD35 RBRK6 01124 01142* 

FE57 RD2ADR 00679 01343*01370 

0012 RECEV 00064X00243 

FB22 REGSi 00780*00847 

FB26 REGS2 ©0782*00603 

FB42 REGS3 00790 00798* 

FB3D REGS4 007S2 00795* 

FB46 REGS6 00737 00301* 

FB1E REG5TR 00171 00776* 

FAB3 RETRN 0063! 00635 00637 

0010 RMCR 00062*00333 

F8E9 SI 20 00174 00336* 

F6EC S1205 00232 00337*00345 

00DD SAVSTK 00063*00330 00730 00951 
01059 01062 01066 01106 

FFC8 SERIAL 00359 01602* 

FD36 SETB 00965 01030 01147* 

FD3F SETB2 01151*01169 

FD54 SETB4 01153 01164* 

FD5E 5ETB6 01160 0117 1* 

FC71 SETCLK 01005*01020 01078 

FCE2 SETFTM 01070 01034* 

FDAA SHERR 01143 01233* 

FDA7 SHERR2 01220 01231*01236 01241 

FEU SHOW 10 01305*01335 

FE22 5H0N12 01312*01315 

FE30 3H0W14 01319*01329 

FE3C SH0W16 01322 01325* 

FE3E SHOW! 3 01324 01326* 

FDE3 SH0W19 01276*01306 01332 

FD97 SH0W35 01218 01224* 

FDAD SH0N4 01223 01235* 

FDC1 SH0W3 01230 01243* 

FDF7 SW0W9 01291*01336 

FADE- SPACE 00121 00706*01296 

FFC1 SPACE6 01293 01593* 

00E4 SPSAVE 00034*00366 00956 

F93B SRCH 00435 00453* 

F3A1 SRCW01 #£456*00477 00496 

F9B9 SRCW02 00472 00476* 

F9C5 SRCH03 00463 00488* 

F9C9 SRCH04 00490*00503 

F3D7 SRCH05 00496 00500* 

00CF STACK 00074*00356 00365 

F3F6 START 00122 00356*01643 

FAF7 STRCHK 00634 00737*01157 

F31E STRT 00122*01642 

00D1 STRTX 00078*00432 00483 

FFD2 SWI 01607* 

FD7E SWI 3 01 195 01201* 

FBDC TAB! 00902*00908 

0008 TCSR 00059*00390 01019 

00DB TEMP 00086*00560 00573 

00D3 TEMPA 00085*00439 00494 
00820 00825 00885 
01244 01290 01330 



00667*00739 



00991 00995 00996 00993 01055 01057 
01103 01109 01111 01113 01134 01186 



01299 01316 



00961 00993 01054 01116 



00367 00408 00994 01024 01182 



01075 
00581 
00501 
00302 
01519 
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01077 
00687 
00559 
01045 
01526 
*** VER 



00689 01460 01473 01536 01553 
00561 00580 00620 00633 00677 
01067 01187 01229 01240 01242 
01563 
1 .0 *** 



F9EB 


TERM 


00434 


F9F9 


TERMG2 


00524 


FFCE 


T I M I N 


01605! 


FFCC 


TIMOUT 


01604! 


FFCA 


TIMOVF 


016031 


FC4 6 


TRACE 


00180 


FC4F 


TRACE2 


00971 


0013 


TRANS 


00065; 


0011 


TRCS 


00063! 


F3FC 


VALIN 


00417 


F5FA 


VALINP 


00537! 


FA08 


VALRTN 


00538 


00FE 


V'ECPTR 


00106! 


FFD.6 


VECTOR 


016 15] 


FFF0 


VECTR 


01032 


FEAB 


VER^ 


00133 


FB1B 


XOUTCM 


7 7 


FB95 


ZOUTCH 


00853 



00523*00315 

0052G 00523 0G530X 



00975* 

00979* 
*00265 
*00243 00262 00294 

00533* 
*00618 00867 00914 00946 01278 

00544* 
*00360 01097 01613 
*01G?S 1627 01623 01629 01630 01631 01632 

01635* 

01414*: 

00732 00743 00764 00767 00769* 

00855* 
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